作为 一 名 纯 “ 码 农 ”， 我 已 经 在 键盘 上 而 敲打 打 了 10 余 年 ， 使 用 的 语言 主要 是 Java， 但 是 ， 我 对 AsP 依 然 情 有 独 钟 。 当 年 在 学 习 了 HTML 后 ， 接 触 的 第 一 门 编程 语言 就 是 AsP， 可 以 说 ， 它 是 我 的 入 门 
语言 ， 我 相信 ， 它 也 是 很 多 人 的 入 门 语 言 。 


凭借 着 自学 的 ASP 基础 ， 我 找到 了 第 一 份 编程 工作 ， 而 我 所 学 的 专业 却 是 化 学 工艺 。 工 作 闲暇 ， 我 “ 泡 ” 在 经 典 论坛 的 后 台 编 程 区 学 习 ， 后 来 当 上 了 版 主 。 那 段 时 间 ， 绝 对 是 经 典 论坛 的 易 盛 时 期 ， 帖 
子 很 多 ， 回 复 也 很 多 。 大 家 都 热情 高 涨 ， 共 同 研究 、 共 同学 习 、 共 同 进步 ， 很 多 人 的 名 字 至 今 我 记忆 犹 新 ， 如 布鲁斯 狼 、 帅 青蛙 、 幻 想 曲 等 。 对 了 ， 我 的 网 名 是 萧萧 小 雨 ， 相 信 很 多 人 看 过 我 撰写 的 “让 你 
知道 codepage 的 重要 ”一 文 。 


AsP 入 门 简单 ， 但 要 想 成 为 高 手 很 难 。 在 实际 开发 中 ， 你 会 碰 到 各 种 各 样 的 问题 ， 有 很 多 需要 掌握 的 知识 点 ， 如 文件 上 传 、 文 件 管理 、 生 成 验证 码 、 发 邮件 、 抓 天 气 预报 、 抓 新 闻 、XML 文 件 处 理 、 
Ajax 使 用 、 编 码 问题 、 存 储 过 程 调用 、Excel 文 件 处 理 等 。 


论坛 的 帖子 五 花 八 门 ， 回 复 的 多 了 ， 你 就 会 党 得 ， 真 的 需要 一 本 进 阶 或 者 总 结 的 书籍 。 市 面 上 的 书籍 只 能 让 你 入 门 ， 后 续 的 学 习 如 果 完 全 凭借 自己 研究 、 网 络 搜索 和 网 络 求助 ， 那 么 所 能 获取 的 知识 将 
是 零 零 散 散 ”支离破碎 的 ， 无 法 构成 完整 的 知识 体系 。 


于 是 ,我 在 论坛 发 帖 说 ， 我 想 写本 ASP 的 书 。 有 些 人 说 : “小 雨 ， 支 持 你 ， 我 第 一 个 买 。” 也 有 些 人 说 : “这 方面 的 书 太 多 了 ， 并 且 写 得 都 不 错 ， 建 议 你 还 是 放弃 吧 。 ”不 管 三 七 二 十 一 ， 我 还 是 动笔 
了 。 充 满 激情 地 写 了 几 章 基础 知识 后 ， 我 写 不 动 了 ， 因 为 太 没 意思 ， 写 完 之 后 ， 我 觉得 它 和 别人 写 的 书 没 喻 两 样 。 经 过 一 阵 困惑 和 思考 之 后 ， 我 决定 去 掉 入 门 知 识 的 章节 ， 写 点 有 难度 的 。 所 以 作为 本 书 的 
读者 ， 你 应 该 已 经 掌握 了 AsP 的 基本 知识 ， 能 够 独立 搭建 运行 环境 ， 能 够 编写 简单 的 应 用 程序 ， 能 够 处 理 简单 的 常见 问题 。 


最 终 ， 本 书 的 章节 结构 是 这 样 的 : 

第 1 章 讲解 FSO 文 件 管理 。FSO 的 使 用 其 实 比 较 简 单 ， 放 在 第 1 章 作 为 过 渡 。 学 习 该 章 后 ， 你 可 以 熟练 地 进行 文件 管理 的 相关 操作 及 文本 流 的 操作 。 
. 第 2 章 讲解 字符 与 字 节 流 转换 及 Adodb.Stteam 对 象 的 使 用 ， 为 编码 转换 打下 基础 。 

. 第 3 章 讲 解 各 种 常见 编码 、 乱 码 的 由 来 、CodePage 的 使 用 和 问题 举例 。 学 习 该 章 后 ， 你 可 以 解决 大 部 分 的 乱码 问题 ， 达 到 随心 所 欲 的 地 步 。 


第 4 章 讲解 XMLDOM 的 使 用 ， 学 习 本 章 后 ， 读 者 进行 XML 处理 再 无 压力 。 





“第 5 章 讲解 XMLHTTP 和 ServerXMLHTIP 的 使 用 ， 前 者 是 Ajax 技术 的 核心 ， 后 者 是 抓 取 网 页 的 利器 。 
" 第 6 章 讲解 正则 表达 式 的 基础 知识 及 正则 对 象 的 使 用 。 本 章 讲解 的 仍然 是 基础 知识 ， 正 则 说 简单 也 简单 ， 说 难 也 难 ， 多 写 多 练 才 是 王道 。 
' 第 7 章 讲 解 文件 上 传 与 下 载 。 该 章 从 基础 原理 讲 起 ， 包 括 无 组 件 上 传 、 组 件 上 传 和 上 传 漏洞 等 。 最 后 讲解 文件 下 载 ， 包 括 缓存 处 理 、 分 段 下 载 等 略 难 一 点 的 知识 ， 需 要 读者 对 HITTP 知 识 略 有 了 解 。 


. 第 8 章 讲 解 常 用 的 AspJpeg 图 像 处 理 组 件 ， 包 括 大 部 分 的 功能 讲解 ， 还 包括 GIF 动画 的 一 些 知 识 。 








. 第 9 章 讲解 Email 发 送 的 知识 ， 包 括 Email 基 础 结构 、 常 见 的 发 信和 组件 的 使 用 、 附 件 的 处 理 等 知识 。 


我 相信 ， 本 书 已 经 包括 ASP 常 用 的 重点 内 容 。 很 抱歉 ， 本 书 并 没有 讲 ADO 的 使 用 ， 虽然 它 是 一 个 重点 ， 但 是 每 本 书 都 会 讲 它 ， 所 以 大 家 可 能 已 经 很 熟悉 了。 而 且 深 入 讲解 ADO 的 话 ， 就 够 写 一 本 书 了 ， 
这 样 的 书 已 经 有 了 。 


写作 的 过 程 是 痛苦 的 ， 因 为 它 是 一 本 技术 书籍 ， 我 唯恐 因为 我 的 无 知 或 一 知 半 解 误导 了 各 位 读者 。 对 每 个 模糊 的 知识 点 ， 我 都 尽力 搞 清 楚 ， 对 每 个 疑难 问题 ， 我 都 尽力 找到 解决 方案 。 我 参考 了 很 多 书 
籍 、 文 章 、APlI 文 档 ， 如 《精通 正则 表达 式 》《 正 则 表达 式 经 典 实例 》、《HTTP 权 威 指南 》、MSDN 等 。 我 相信 ， 一 个 普通 的 ASP 程 序 员 做 不 到 这 些 ， 我 就 是 要 用 我 10 年 的 技术 功力 来 写 一 本 关于 ASP 的 书 
籍 ， 只 为 这 一 份 执着 ， 这 一 个 约定 ， 也 为 了 给 妻子 一 个 小 小 的 回报 。 这 本 书 耗费 了 我 大 量 的 时 间 和 精力 ， 感 谢 我 的 妻子 为 我 们 这 个 小 家 做 出 的 一 切 。 


其 实 ， 我 最 应 该 感谢 的 是 机 械 工业 出 版 社 的 编辑 ， 没 有 他 们 对 我 的 鼓励 ， 没 有 他 们 的 帮助 ， 就 没有 这 本 书 的 面世 。 感 谢 他 们 所 做 的 一 切 。 
虽然 我 很 努力 ， 但 是 书 中 依然 可 能 存在 错误 、 朴 漏 之 处 ， 敬 请 各 位 读者 不 音 赐教 。 
王 洪 影 


2016 年 3 月 15 日 


第 1 章 ”FSO 文件 管理 


1.1 FSO 简介 


FSO 即 File System Object 组 件 ， 它 提供 了 常见 的 文件 夹 及 文件 管理 功能 ， 如 创建 文件 夹 、 复 制 文件 夹 、 删 除 文件 夹 、 复 制 文件 和 删除 文件 等 。 另 外 ， 它 还 可 以 读 写 文本 文件 和 获取 驱动 器 信息 。 


第 1 章 ”FSO 文件 管理 


1.1 FSO 简介 


FSO 即 File System Object 组 件 ， 它 提供 了 常见 的 文件 夹 及 文件 管理 功能 ， 如 创建 文件 夹 、 复 制 文件 夹 、 删 除 文件 夹 、 复 制 文件 和 删除 文件 等 。 另 外 ， 它 还 可 以 读 写 文本 文件 和 获取 驱动 器 信息 。 


1.2 ”驱动 器 集合 


FSO 对 和 象 的 Drives 属 性 返回 所 有 驱动 器 的 集合 ， 可 以 使 用 For Each 语句 遍历 它 ， 集 合 中 的 每 一 项 都 是 一 个 Drive 对 象 。 
下 例 遍 历 所 有 的 驱动 器 ， 并 输出 盘 符 及 驱动 器 类 型 。 
driveList.asp 


driveList.asp 
<%Qcodepage=936%> 
< 
Response.Charset = "GBK" 

Set fso = CreateObject ("Scripting.FileSystemobject") 





























Set driveList = fso.Drives ! 取 得 Drives 集 合 
' 了 驱动 器 个 数 
response.write "驱动 器 个 数 : " & driveList.count & "<br>" 


' 输 出 所 有 了 驱动 器 的 盘 符 及 类 型 








For Each drive In driveList 


























Response.Write "了 驱动 器 " & drive.DriveLetter 
Response.Write ", " & GetDriveTypeName (drive.DriveType) & "<br>" 
Next 
Set fso = nothing 
' 取 得 驱动 器 类 型 的 名 称 
Function GetDriveTypeName (driveTypeNumber) 
Dim name 
Select Case driveTypeNumber 
Case 1 
name = "可 移动 磁盘 " 
Case 2 
name = "硬盘 " 
Case 3 
name = "网 络 共享 " 
Case 4 
name = "光驱 " 
Case 5 
name = "RARAM 磁 盘 " 
Case Else 
name = "未 知 类 型 " 








End Select 








GetDriveTypeName = name 
End Function 
多 > 





运行 结果 如 图 1-1 所 示 。 


文件 全) 编辑 候 ) 查看 WW 收藏 号 ) 工具 中 项 助 时 ) 


-日 国 回 的 过 次 tm @ 全 - 怠 
地 址 心 ) 矢 ] http: /ocalhost/test/fso/driveList.asp ~ 转 到 链接 


张 动 器 个 数 : 3 
驱动 器 &， 可 移动 磁盘 
驱动 器 C， 和 硬盘 
驱动 器 D， 光 张 
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图 1-1 遍历 所 有 的 驱动 器 
Drive 对 象 的 DriveLetter 属 性 返回 此 驱动 器 的 盘 符 字母 ， 而 DriveType 属 性 返回 驱动 器 的 类 型 ， 它 的 返回 值 是 一 个 数字 ， 数 字 的 含义 如 表 1-2 所 示 。 


表 1-2 DriveType 属 性 


上 例 中 的 GetDriveTypeName 方 法 是 一 个 自 定义 方法 ， 它 根据 数字 返回 对 应 的 文字 。 


1.3 ”驱动 器 信息 


取得 某 个 驱动 器 对 象 可 以 使 用 FSO 对 象 的 GetDrive 方 法 ， 参 数 是 盘 符 ， 可 以 带 冒 号 和 反 和 斜 杠 ,， 如 “C”“C: ”“C: \ 。 举 例如 下 : 


Set drive = fso.GetDrive ("C:\") 








Drive 对 象 的 属性 列表 如 表 1-3 所 示 。 


表 1-3 ”Dtive 对 象 的 属性 


属 性 含 义 


AvailableSpace 可 用 空间 大 小 ， 单 位 是 字 节 数 (如 果 启 用 了 配额 管理 ， 可 能 不 同 ) 
DriveLetter 驱动 硕 的 盘 符 字母 

DriveType 驱动 带 类 型 

FileSystem 驱动 器 的 文件 系统 ， 如 FAT、FAT32、NTFS、CDFS ( 指 光 驱 ) 等 
FreeSpace 剩余 空间 大 小 ， 单 位 是 字 节 数 

ISReady 驱动 硕 是 否 准备 台 绪 ， 如 光驱 没有 放 和 人 光盘 ,那么 该 属性 加 是 False 
Path 驱动 天 路径， 市 冒号 ， 没 有 反 斜 枉 ， 如 “C:””D:” 等 
RootFolder 驱动 硕 的 根 目 录 ， 返 回 的 是 一 个 Folder 对 象 

Serial Number 驱动 硕 的 序列 所 

ShareName 驱动 硕 的 网 络 共 享 名 

TotalSize 驱动 带 总 的 空间 大 小 ， 单 位 是 字 记 数 

VolumeName 驱动 硕 的 卷 标 ， 此 属性 可 以 修改 


读 取 驱 动 器 信息 之 前 ， 应 该 先 判断 驱动 器 是 否 存 在 ， 然 后 再 判断 驱动 器 是 否 准备 就 绪 。 第 一 步 可 以 使 用 FSO 对 象 的 DriveExists 方 法 来 判断 ， 第 二 步 可 以 使 用 Drive 对 象 的 IsSReady 属 性 来 判断 。 


下 面 看 一 个 读 取 C 盘 属性 的 例子 。 






















































































Drive.asp 
<%$Qcodepage=936%> 
<!--#include File="fso function.asp" --> 
<% 
Response.Charset = "GBK" 
drivePath = "c:\" 
Set fso = CreateObject ("Scripting.FileSystemObject") 
' 判 断 驱 动 器 是 否 存 在 
If fso.DriveExists (drivePath) Then 
Set drive = fso.GetDrive (drivePath) ' 取 得 drive 对 和 象 
"判断 是 否 准 备 就 绪 
If drive.IsReady Then 
Response.Write "空间 : " & drive.AvailableSpace & " 字 节 <br>" 
Response.Write "驱动 器 字符 : " & drive.DriveLetter & "<br>" 
Response.Write "驱动 器 类 型 : " & GetDriveTypeName (drive.DriveType) & "<br>" 
Response.Write "文件 系统 : " & drive.FileSystem & "<br>" 
Response.Write "剩余 空间 : " & drive.FreeSpace & " 字 节 <br>" 
Response.Write "路 径 : " & drive.Path & "<br>" 
Response.Write " 根 目 录 : " & drive.RootFolder & "<br>" 
Response.Write "序列 号 : " & drive.SerialNumber & "<br>" 
Response.Write "共享 名 : " & drive.ShareName & "<br>" 
Response.Write "空间 大 小 : " & drive.TotalSize & " 字 节 <br>" 
Response.Write " 卷 标 : " & drive.VolumeName & "<br>" 
Else 
Response.Write "了 驱动 器 没有 准备 好 。" 
End If 











Else 





Response.Write "驱动 器 不 存在 。" 








End If 
Set fso = Nothing 
%$> 











运行 结果 如 图 1-2 所 示 。 


3 http://localhost/test/fsofdrive.asp - Microsoft Internet ... 
文件 全 ) 编辑 候 ) 查看 收藏 上 工具 全 项 助 时 ) 


@ia- 日- 国 回 的 记过 次 姑 @ 全- 避 
地 址 心 ) e] http: /ocalhost/test/fso/drive.asp | I 转 到 ” 迁 接 


空间 ，39642136576 字 节 
驱动 器 字符 : C 
驱动 器 类 型 ， 硬盘 

文件 系统 : NTFS 

剩余 空间 :39642136576 字 节 
路 径 :，C: 

根 目 录 : C:\ 

序列 号 ，216764774 
共享 名 ， 

空间 大 小 ，42935926784 字 节 
卷 标 ， 
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图 1-2 ” 读 取 C 盘 属性 


1.4 文件 夹 集合 


Drive 对 象 的 RootFolder 属 性 返回 的 是 驱动 器 的 根 文件 夹 ， 它 是 一 个 Folder 对 象 。Folder 对 象 的 SubFolders 属 性 返回 所 有 子 文件 夹 的 集合 ， 可 以 使 用 For Each 语句 遍历 它 ， 集 合 中 的 每 一 项 都 是 一 个 
Folder 对 象 。 


下 例 输出 C 盘 根 目 录 下 的 所 有 文件 夹 的 名 字 。 
FolderList.asp 


<$Qcodepage 2 
-一 #in 






























































clugde File="fso function.asp" 一 -> 
Response.Charset = "GBK" 
Set fso Ce 
取得 C 益 根 目 杂 
Set = fso.GetDrive("c:\") .RootFolder 
到 但 了 文件 类 的 和 全 合 
Set rootFolder .SubFold 
文件 关 个 元 
ite "文件 夹 个 数 : folders.count & "<br>" 
入 仙子 文 宁 天 的 训 守 - 
FO older In folders 
i folder.name & "<br>" 
Next 
Set fso = Nothing 
$> 





运行 结果 如 图 1-3 所 示 。 


3 http://localhost/test/fsofF olderList.asp - Microsoft Inte... — me 》 4 
文件 仆 ) 编辑 候 ) 查看 (YY) 收藏 他 工具 中 帮助 的) 


"人 @- 加 加 名 有 P 抱 站 民 天 大凡- 总 
地 址 (D) 作 http:/ocahosthest/fso/Foderlstasp iv| 固 轩 到 说 


Documents and vettings 
Inetpub 

Program Files 

oySstem Yolume lntormatlon 
WINDOW 
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图 1-3 ”输出 C 盘 根 目录 下 的 所 有 文件 夹 


其 中 ，System Volume Information 实 际 上 是 一 个 隐藏 文件 夹 。 在 资源 管理 器 中 可 能 看 不 到 它 ， 但 对 于 FSO 来 说 ， 一 览 无 余 。FSO 会 把 具有 隐藏 、 系 统 属性 的 文件 夹 都 列 出 来 。 


1.5 ”文件 夹 管理 


要 取得 某 个 文件 夹 对 象 ， 可 以 使 用 FSO 对 象 的 GetFolder 方 法 ， 它 返回 一 个 Folder 对 象 ， 如 ， 想 得 到 C: \Program Files\ 所 对 应 的 Folder 对 象 ， 可 以 使 用 以 下 语句 : 





Set rootFolder = fso.GetFolder ("C:\Program Files\") 








FSO 对 象 还 提供 了 GetSpecialFolder 方 法 ， 通 过 它 可 以 取得 几 个 特殊 的 文件 来 ， 参 数 可 选 值 如 表 1-4 所 示 。 


表 1-4 GetSpecialFoldet 方 法 的 参数 


参数 值 举例 
0 返回 Windows 文件 夹 C:VWINDOWS 
] 返回 System 文件 夹 C:\WINDOWS'\system32 


2 返回 临时 文件 夹 CAVWINDOWSVTemp 


六 


例如 ， 用 以 下 语句 可 以 得 到 系统 的 临时 文件 夹 : 





Set tempFolder = fso.GetSpecialFolder (2) 





1.6 ”文件 集合 


Forder 对 象 的 Files 属 性 返回 所 有 文件 的 集合 ， 可 以 使 用 For Each 语句 遍历 它 ， 集 合 中 的 每 一 项 都 是 一 个 File 对 象 。 


下 例 将 输出 C: XProgram Files\Common Files\System\ado\ 文 件 夹 下 的 所 有 文件 的 名 字 。 


FileList.asp 





<%Qcodepage=936%> 
<S% 


Response.Charset = "GBK" 

Set fso = CreateObject ("Scripting.FileSystemObject") 
folderPath = "C:\Program Files\Common Files\System\ado\" 
' 取 得 指定 目录 














Set folder = fso.GetFolder (folderPath) 
' 取 得 该 目录 下 的 文件 集合 
Set files = folder.Files 
' 文 件 个 数 
response.write "文件 个 数 : " & files.count & "<br>" 
' 输 出 文件 的 名 字 
For Each file In files 

Response.Write file.name & "<br>" 






































Next 
Set fso = nothing 
和 > 


运行 结果 如 图 1-5 所 示 。 


BE http://localhost/test/fso/FileList.asp - Microsoft Interne... 
文件 候 ) ”编辑 候 ) 查看 收藏 从) 工具 中 和 帮助 器) 


> AP 生 
地 址 心 ) 包 http:iocalhostitestyfsoFleListasp | 转 到 ” 谤 接 


| 


文件 个 数 ， 15 
ado javas. 1nc 
adovbs. i1nc 
MDACReadme. htm 
msaderl5. dll 
msadol5. dll 
msado20. tlb 
msado2l. tlb 
msado2D5. tlb 
msado26. tlb 
msado2r. tlb 


钨 | 完毕 全 本 地 Intranet 





图 1-5 ”输出 所 有 文件 的 名 字 


1.7 文件 管理 


取得 某 个 文件 对 象 可 以 使 用 FSO 对 象 的 GetFile 方 法 ， 它 返回 一 个 File 对 象 。 要 取得 C: \boot.ini 文 件 对 应 的 File 对 象 ， 可 以 使 用 以 下 语句 : 





Set file = fso.GetFile("C:\boot.ini") 











调用 该 方法 之 前 ， 应 该 先 使 用 FSO 对 象 的 FileExists 方 法 判断 文件 是 否 存 在 ， 若 不 存在 ， 则 GetFile 方 法 会 报错 。 


1.8 ”其 他 实用 万 法 


FSO 对 象 还 提供 了 一 些 实用 的 小 方法 ， 如 表 1-12 所 示 。 


表 1-12 FSO 对 象 的 实用 方法 


方法 名 


BuildPath(path,name) 


GetAbsolutePathName(path) 


GetBaseName(path) 


GetDrive Name(path) 


GetExtensionName(path) 
GetFileName(path) 
GetFileVersion (path) 


GetParentFolderName(path) 


GetTempName!() 


下 例 将 演示 各 种 实用 方法 的 使 用 。 


<%Qcodepage=936%> 
<S% 


Response.Charset = "GBK" 


Set fso = CreateObjec: 
"组 合 路 径 
newpath = fso.BuildPa 








' 相 对 路 径 转 为 绝对 路 径 


th ("eo:\aaa", 


Response.Write newpath & "<br>" 











absolutePath = fso.Ge 
Response .Write absolut 


"路径 中 文件 夹 的 名 字 

















' 驱动 器 名 称 








"文件 扩展 名 





















































' 父 文件 夹 路 径 











' 生 成 随机 文件 名 

















Set fso = Nothing 
$> 


tempName = fso.GetTempName () 
Response.Write tempName & "<br>" 


"Sub Folder™") 


tAbsolutePathName ("abc.txt 
tepath & "<br>" 


baseName = fso.GetBaseName ("c:\aa\bb") 
Response.Write baseName & "<br>" 
' 路 径 中 文件 的 名 字 (不 包括 扩展 名 ) 

baseName = fso.GetBaseName ("c:\aa\bb\cc.txt") 
Response.Write baseName & "<br>" 


driveName = fso.GetDriveName ("c:\aa\bb\cc.txt") 
Response.Write driveName & "<br>" 


extensionName = fso.GetExtensionName 
Response.Write extensionName & "<br>" 

' 文 件 名 

fileName = fso.GetFileName ("c:\aa\bb\cc.txt") 
Response.Write fileName & "<br>" 

' 文 件 版 本 

fileVersion = fso.GetFileVersion ("C:\W] 





Response.Write fileVersion & "++++<br>" 


t ("Scripting.FileSystemObject") 


2 


("c:\aa\bb\cc.txt") 


[NDOWS \hh .exe") 


parentFolderName = fso.GetParentFolderName ("c:\aa\bb\cc.txt") 
Response.Write parentFolderName & "<br>" 


作 用 
在 路 径 的 后 面 追加 一 个 名 字 ， 可 能 目 动 插入 一 个 路 径 分 隅 符 
根据 相对 路 径 ， 返 回绝 对 路 径 
根据 路 径 ， 取 得 文件 名 (不 包括 扩展 名 ) 或 文件 夹 名 
根据 路 径 ， 取 得 驱动 硕 名 
根据 路 径 ， 取 得 文件 的 扩展 名 
根据 路 径 ， 取 得 文件 名 《包括 扩展 名 ) 
根据 路 径 ， 取 得 文件 的 版 本 号 
根据 路 径 ， 取 得 父 文件 夹 名 
生成 一 个 随机 字符 串 ， 可 用 来 做 临时 文件 的 名 字 


FSOUtil.asp 





运行 结果 如 图 1-9 所 示 。 


BS http://localhost/test/fso/FSOUtil. asp - Microso... [| 人 
文件 和) ”编辑 个) 查看 WD” 收藏 的 工具 人 帮助 时 ) 堆 


- 园 - 因 国人 的 万 抽 索 责 民 大 全 


地 址 CC) 图 ntpyhocahostytesbgoFsouulasp jw | 固 轩 到 请 本 ” 


caaavcub Folder 

C: WINDOWS\svstemS2"abc. txt 
bb 

CC 

Ee 

twt 

Ce LT 

5, 2, S790, 24553++++ 

Cc: \aa\bb 

radeUV3o59. tmp 


过 | 完毕 外 本 地 Intranet 





图 1-9 ”各 种 实用 方法 的 使 用 
除了 GetTempName 方 法 ， 其 他 方法 都 有 参数 path。 这 些 方法 都 不 会 验证 这 个 path 是 否 实际 存在 ， 只 是 根据 字符 串 中 的 表面 关系 来 取得 结果 。 


在 实际 应 用 中 ，GetAbsolutePathName 方 法 可 能 让 人 比较 困惑 ， 因 为 这 里 有 一 个 当前 路 径 的 概念 。 在 之 前 的 例子 中 ， 参 数 的 路 径 使 用 的 都 是 绝对 路 径 ， 也 就 是 以 “C: \ “D: \ 等 开头 的 完整 路 
径 ， 实 际 上 这 些 参数 都 是 可 以 使 用 相对 路 径 的 。 使 用 相对 路 径 就 需要 知道 当前 路 径 ，FSO 默 认 的 当前 路 径 是 系统 目录 的 System32 文 件 夹 (如 XP 就 是 C: \WINDOWS\system32) ， 而 不 是 当前 ASP 文 件 所 在 
的 路 径 。 比 如 创建 文件 的 时 候 ， 只 写 了 一 个 文件 名 ， 那 么 这 个 文件 就 被 创建 到 system32 目 录 下 ， 而 不 是 当前 ASP 文 件 所 在 的 目录 下 。 


GetAbsolutePathName 方 法 的 参数 与 结果 的 对 应 关系 也 不 利于 人 理解 ， 举 例如 表 1-13 所 示 。 


表 1-13 GetAbsolutePathName 方 法 举例 


执行 语句 结 果 
GetAbsolutePath Name("c:") C:\WINDOWS'\system32 
GetAbsolutePath Name("..\aaa.jpg") C:\WINDOWS\aaa.jpg 
GetAbsolutePath Name("d:") D:\ 

GetAbsolutePath Name("c:\") Cl 
GetAbsolutePath Name("c:aaa\bbb\ccc.txt") C:\WINDOWS'\system32\aaa\bbb\ccc.txt 
GetAbsolutePath Name("c:..\aa\b.txt") C:\WINDOWS\aa\b.txt 


看 看 结果 ， 是 不 是 有 些 不 得 要 领 呢 ? 实际 上 ， 这 个 语句 类 似 于 DOS 命 令 中 的 cd 命令 。“C: ”和 “D: ”等 (不 带 反 和 斜 杠 ) 是 切换 盘 符 的 ， 而 每 个 盘 符 都 保持 一 个 当前 路 径 ， 所 以 切换 后 的 当前 路 径 是 
该 盘 符 之 前 保持 的 那个 路 径 。“C: \ 和 “D: \ 等 ( 带 反 和 斜 杠 的 ) 则 是 切换 到 盘 符 根 目录 的 。 


DOS 命 令 的 执行 演示 如 图 1-10 所 示 。 











人 一 7 一 一 他 _ - 0 人 Fa rr Fa Nb. 一 全 





图 1-10 ”DOS 命令 执行 演示 


相对 路 径 让 人 不 易 分 辨 ， 所 以 还 是 尽量 使 用 绝对 路 径 。 


第 2 章 ”文本 与 二 进 制 数据 处 理 


2.1 基础 知识 


2.1.1 二进制 与 十 六 进 制 


常见 的 进 制 有 十 进 制 、 二 进 制 、 八 进 制 和 十 六 进 制 。 我 们 通常 说 的 数字 都 是 指 十 进 制 ， 如 “今天 伦 了 300 块 钱 ”。 计 算 机 内 部 存储 、 计 算 、 传 输 的 数据 则 是 二 进 制 形式 的 ， 它 只 认识 0 和 1。 


数据 存储 的 最 小 单位 是 比特 (bit) ， 一 个 比特 只 能 表示 0 或 1。 两 个 比特 的 组 合 则 能 表示 “00” “01” “10” 和 “11” 这 4 个 值 ( 即 十 进 制 的 0~3) ， 以 此 类 推 ，3 个 比特 可 以 表示 十 进 制 的 0~7，4 个 比 
特 可 以 表示 0~15，8 个 比特 可 以 表示 0~255。 所 以 ，3 个 比特 可 以 用 一 个 八进制 数字 来 表示 ，4 个 比特 可 以 用 一 个 十 六 进 制 数字 来 表示 。 


举例 如 表 2-1 所 示 。 


表 2-1 数据 进 制 举例 


二 进 制 数据 对 应 的 十 六 进 制 对 应 的 十 进 制 
( 续 ) 


二 进 制 数 据 对 应 的 十 六 进 制 对 应 的 十 进 制 
1111111 177 127 


通常 将 8 个 比特 组 合 起 来 称 为 一 个 字 节 (Byte) ， 一 个 字 节 可 以 表示 十 进 制 的 0~255， 用 十 六 进 制 表示 就 是 0x00~0OxFF (通常 在 十 六 进 制 数字 前 面 加 0x 前 缀 ， 以 示 区 别 ) 。 


如 ， 有 以 下 4 个 字 节 的 数据 ， 我 们 可 以 用 十 六 进 制 形式 将 其 表示 为 0xB40xBA 0xCC 0xEC， 即 两 个 十 六 进 制 数字 表示 一 个 字 节 。 


10110100 10111010 11001100 11101100 


更 大 一 些 的 存储 单位 就 是 KB、MB、GB 和 TB 等 ， 它 们 之 间 的 换算 关系 是 乘 以 1024， 如 1KB=1024 Byte，1MB=1024KB，1GB=1024MB 等 。 
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2.1 ”基础 类 识 


2.1.1 二进制 与 十 六 进 制 
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特 可 以 表示 0~15，8 个 比特 可 以 表示 0~255。 所 以 ，3 个 比特 可 以 用 一 个 八进制 数字 来 表示 ，4 个 比特 可 以 用 一 个 十 六 进 制 数字 来 表示 。 


举例 如 表 2-1 所 示 。 


表 2-1 数据 进 制 举例 


( 续 ) 


rT TT 


通常 将 8 个 比特 组 合 起 来 称 为 一 个 字 节 (Byte) ， 一 个 字 节 可 以 表示 十 进 制 的 0~255， 用 十 六 进 制 表示 就 是 0xX00~0xFF (通常 在 十 六 进 制 数字 前 面 加 0x 前 级 ， 以 示 区 别 ) 。 


一 


0 


如 ， 有 以 下 4 个 字 节 的 数据 ， 我 们 可 以 用 十 六 进 制 形式 将 其 表示 为 0xB40xBA 0xCC 0xEC， 即 两 个 十 六 进 制 数字 表示 一 个 字 节 。 


10110100 10111010 11001100 11101100 


更 大 一 些 的 存储 单位 就 是 KB、MB、GB 和 TB 等 ， 它 们 之 间 的 换算 关系 是 乘 以 1024， 如 1KB=1024 Byte，1MB=1024KB，1GB=1024MB 等 。 


2.2 ” 弟 用 转换 举例 


2.2.1 取得 字符 串 的 内 存 仓储 形式 


只 要 利用 LenB、MidB、AscB 等 函数 ， 即 可 输出 字符 串 的 内 存 存储 形式 。 


范例 如 下 所 示 。 


getStringMemoryFormat.asp 





< 

text = "今天 下 雪 了 。 

result = "" 

' 输 出 字 节 长 度 

response. write " 字 节 长 度 : " & LenB (text) & "<br>" 

"循环 每 一 个 字 节 

For 1=1 To LenB (text) 
oneByte = MidB (text,i,1) ' 得 到 一 个 字 节 
number = AscB (oneByte) ' 该 字 节 对 应 的 数字 
numberHex = Hex (number) ' 救 字 的 十 六 “ 进 制 形式 


























"如 果 十 六 进 制 形式 只 有 一 位 ， 则 前 面 补 一 个 0 
If Len (numberHex) = 1 Then 
numberHex = "0" & numberHex 




















' 拼 接 结 果 
result = result & " " & numberHex 
Next 











response.write result ' 输 出 结果 


和 > 





运行 结果 如 图 2-4 所 示 。 


文件 人 ) 编辑 E) 查看 WY) 收藏 人 工具 CD 帮助 时 ) 
“名 - 轩 加 物 这 次 民 天 人 @ 了 内 ”与 


地 址 心 ) 外 http://ocalhost/test/binary /getStrinc ¥ | 转 到 ”链接 ” 九 Snagit 国 名 


字 节 长 度 ，12 
CA dE29590B4EEHA96864E0230 


一 
特 翅 4 





| A INtranet 


图 2-4 字符 串 的 内 存 存储 形式 
在 VBScript 运 行 时 ， 每 个 字符 在 内 存 中 都 是 以 Unicode 编 码 形式 存在 的 ， 每 个 字符 占用 两 个 字 节 ， 所 以 该 例 中 LenB 函 数 返 回 了 12。 


2.3 _ Stream 对 象 的 使 用 


2.3.1 简介 


Adodb.stream 是 用 来 处 理 文本 或 二 进 制 数据 的 对 象 ， 是 处 理 数 据 流 、 转 换 编码 的 利器 。 


Adodb.Stream 对 象 相当 于 一 个 临时 的 存储 区 域 ， 将 数据 写 入 ， 进 行 处 理 ， 然 后 将 数据 读 出 。 简 单 来 说 ， 就 是 一 个 进 和 出 的 过 程 ， 如 图 2-12 所 示 


数据 写 入 数据 读 出 
> Stream 对 象 > 


图 2-12 ”数据 进出 Stteam 对 象 
(1) 对 象 的 创建 


创建 Stream 对 象 使 用 以 下 语句 即 可 : 


Set stream = Server.CreateObject ("ADODI 





B.Stream") 





(2) 数据 类 型 
stream 对 象 可 以 处 理 二 进 制 数据 或 文本 数据 ， 当 前 的 数据 类 型 ， 或 者 说 处 理 方式 ， 是 通过 Type 属性 来 声明 的 ， 它 的 可 选 值 如 表 2-7 所 示 


表 2-7 Type 属性 可 选 值 


值 4 
] 二 进 制 数据 
2 文本 效 据 ， 先 认 值 


当 处 理 方式 为 二 进 制 数据 时 ，stream 对 象 以 字 节 为 单位 处 理 数 据 ， 否 则 以 字符 为 单位 。 处 理 方式 并 不 是 一 成 不 变 的 ， 可 以 动态 地 改变 它 。 我 们 可 以 先 以 二 进 制 方式 写 入 数据 ， 然 后 变更 Type 属性 为 2， 
以 文本 方式 来 处 理 ， 反 之 亦 可 。 但 是 ， 需 要 提醒 一 下 ， 只 有 指针 指向 位 置 0 的 时 候 ， 才 可 以 变更 Type 属性 。 


(3) 对 象 的 打开 与 关闭 
刚 创 建 完 的 Stream 对 象 是 关闭 的 ， 而 写 入 数据 、 读 取 数 据 等 操作 都 要 求 Stream 对 象 是 打开 的 。 打 开 对 象 使 用 Open 方 法 ， 虽 然 它 有 几 个 可 选 参数 ， 但 实际 应 用 中 很 少 用 到 ， 所 以 不 再 介绍 。 
关闭 对 象 使 用 Close 方 法 ， 没 有 参数 。 一 个 对 象 关闭 后 ， 可 以 再 次 打开 ， 重 复 使 用 。 


下 面 看 一 个 简单 的 例子 ， 熟 悉 一 下 写法 。 


StreamExample.asp 





Dim stream 


























Set stream = Server.CreateObject ("ADODB.Stream") "建立 Stream 对 象 
stream.Type = 2 ' 文 本 方式 

stream.Charset = "GBK" ' 字 符 集 为 GBK 

stream.Open 1 打开 Stream 对 象 

stream.WriteText "哈哈 " ' 写 入 数据 

stream.Position=0 ' 指 针 移 动 到 位 置 0 
response.write stream.ReadText “' 读 取 所 有 文本 

stream.close ! 关 闭 Stream 对 象 

Set stream = nothing ' 释 放 内 存 


$> 


代码 不 多 ， 看 注释 就 可 以 懂 了 。 


第 3 草 ”编码 与 乱码 


3.1 常见 编码 


字符 集 就 是 字符 的 集合 ， 编 码 就 是 字符 与 数字 的 对 应 表 ， 因 为 计算 机 只 认识 数字 ， 所 以 我 们 需要 告诉 它 哪个 数字 代表 哪个 字符 。 


为 什么 有 如 此 多 的 编码 ”因为 世界 上 有 如 此 多 的 国家 ， 它 们 制定 字符 编码 的 时 候 ， 不 可 能 为 其 他 国家 着 想 。 笠 好 ， 还 有 ISO (International Organization for Standardization) ， 即 国际 标准 化 组 
织 。 它 是 一 个 跨越 国界 的 全 球 性 的 非 政 府 组 织 ， 它 的 任务 是 促进 全 球 范围 内 的 标准 化 ， 其 中 ， 就 包括 了 字符 编码 的 标准 化 。 


编码 的 发 展 过 程 是 错综复杂 的 。 下 面 只 能 简要 介绍 一 下 常用 编码 的 主要 分 支 的 大 致 情况 。 


第 3 草 ”编码 与 乱码 


3.1 常见 编码 


字符 集 就 是 字符 的 集合 ， 编 码 就 是 字符 与 数字 的 对 应 表 ， 因 为 计算 机 只 认识 数字 ， 所 以 我 们 需要 告诉 它 哪个 数字 代表 哪个 字符 。 


为 什么 有 如 此 多 的 编码 ?因为 世界 上 有 如 此 多 的 国家 ， 它 们 制定 字符 编码 的 时 候 ， 不 可 能 为 其 他 国家 着 想 。 笠 好 ， 还 有 ISO (International Organization for Standardization) ， 即 国际 标准 化 组 
织 。 它 是 一 个 跨越 国界 的 全 球 性 的 非 政府 组 织 ， 它 的 任务 是 促进 全 球 范围 内 的 标准 化 ， 其 中 ， 就 包括 了 字符 编码 的 标准 化 。 


编码 的 发 展 过 程 是 错综复杂 的 。 下 面 只 能 简要 介绍 一 下 常用 编码 的 主要 分 支 的 大 致 情况 。 


3.2 产生 乱码 的 原因 


为 什么 会 产生 乱码 呢 ? 概括 地 说 ， 就 是 因为 转换 过 程 中 没有 使 用 正确 的 编码 。 


以 Windows 系 统 为 例 ， 在 系统 内 部 传递 的 所 有 字符 串 都 是 Unicode 编 码 的 ， 但 是 在 输入 文件 、 输 出 文件 等 场合 却 使 用 SO-8859-1、GBK、Big5 等 各 种 编码 ， 所 以 系统 在 读 入 文件 时 ， 需 要 将 各 种 编码 
的 字符 转换 为 对 应 的 Unicode 编 码 ， 然 后 再 进行 处 理 ， 在 保存 文件 时 再 转换 回去 。 如 果 在 转换 时 没有 使 用 正确 的 编码 ， 那 么 就 会 产生 乱码 。 


下 面 展示 几 个 小 例子 ， 讲 解 一 下 乱码 的 产生 。 


3.3 CodePage 简 介 


CodePage 是 某 个 字符 集 的 字符 编码 与 Unicode 编 码 的 转换 表 。 每 个 字符 集 都 有 这 样 一 张 表 ， 通 过 它 可 以 得 到 每 个 字符 的 Unicode 编 码 ， 或 者 反之 。 


Codepage 不 仅仅 是 Windows 下 的 概念 ， 其 他 操作 系统 及 一 些 数据 库 都 有 CodePage 的 概念 。 对 于 同一 个 字符 集 ， 各 个 厂商 的 CodePage 可 能 略 有 不 同 。 


3.4 ASP 中 的 CodePage 


在 ASP 中 ， 当 前 的 CodePage 由 @codepage、Session.Codepage、Response.Codepage、11S 设 置 、 系 统 默认 等 几 个 方式 决定 ， 下 面 就 一 一 详解 。 


3.5 ”CodePage 的 具体 影响 


3.5.1 ”影响 Request 解 码 
通常 ,我们 使 用 Request.Cookies、Request.QueryString 和 Request.Form 取 得 客户 端的 输入 数据 ， 如 Cookie 值 、URL 传 值 或 提交 的 表单 数据 。 这 些 输入 数据 实际 只 是 一 些 字 节 流 ， 而 通过 Request 集 
合 取得 的 已 经 是 Unicode 字 符 。Request 集 合 自动 对 输入 数据 进行 了 解析 ， 它 根据 当前 的 CodePage 将 字 节 流转 换 为 Unicode 字 符 。 此 解析 动作 只 执行 一 次 ， 也 就 是 第 一 次 访问 集合 时 进行 。 
看 一 下 范例 。 
CurrentCodepage Form.asp，GBK 编 码 


<%Qcodepage=936%> 
< 
response.charset="GBK" 














' 设 置 Cookie 

response.cookies ("fromCookie")=" 打 地 和 鼠 游 戏 范例 " 
response.cookies ("fromCookie") .Expires=Date()+1 

' 字 符 的 URL 编 码 

fromURL = Server.URLEncode (" 打 地 鼠 游 戏 范例 ") 

"表单 的 提交 地 址 

formAction = "CurrentCodepage Result.asp?fromURL="&fromURL 


























%> 

fe) 

<form action="<%$=formAction%$>" method="post"> 

<input type="text" name="fromForm" value=" 打 地 和 鼠 游 戏 范例 "> 
<input type="submit" value=" 提 交 表 单 "> 





























这 是 一 个 表单 页 面 ,分 别 设置 了 Cookie 值 、URL 传 递 的 值 和 表单 提交 的 值 。 提 交 表 单 时 ， 将 同时 通过 3 种 方式 将 数据 传递 给 处 理 页 面 。 


CurrentCodepage Result.asp，GBK 编 码 


<%Qcodepage=936%> 

< 区 

Response.Charset = "GBK" 

' 输 出 变量 的 Unicoqde 编 码 的 十 六 进 制 形 式 

Sub PrintMemory (str) 

For 1=1 To LenB (str) 

Response.Write hex(ascb (migdb (str,i,1)))g&"," 














Next 
Response.Write "<br>" 








End Sub 

' 直 接 输 出 字符 串 做 参考 

str = " 打 地 鼠 游戏 范例 " 

Call PrintMemory (str) 

Response.Write str &"<hr>" 

' 先 取得 Cookie 值 (这 一 步 进 行 了 解码 ) 

fromCookie = Request.cookies ("fromCookie") 

' 输 出 内 存 变 量 的 编码 

Call PrintMemory (fromCookie) 

' 输 出 值 

Response.Write "Cookie:" & fromCookie &"<hr>" 
' 变 更 CodqePade 

Response.Codepage=950 

' 取 得 URL 值 

fromURL = Request.QueryString ("fromURL") 

Call PrintMemory (fromURL) 
Response.Write "URL:" & fromURL &"<hr>" 
' 取 得 表单 值 
fromForm = Request.Form("fromForm") 
Call PrintMemory (fromForm) 
Response.Write "Form:" & fromForm &"<hr>" 
' 再 取 一 遍 Cookie 值 
fromCookie2 = Request.cookies ("fromCookie") 
Call PrintMemory (fromCookie2) 

Response.Write "Cookie:" & fromCookie2 &"<hr>" 
$> 



















































































运行 结果 如 图 3-44 所 示 。 


B | http://localhost/test/Encode/CurrentCodepage Result.as... mm x 
文件 仆 ) 编辑 企 ) 查看 GO) 收藏 名) 工具 中 帮助 时 ) 


" 昌 - 峡 的 有 撕 次 必 天 加 全 7 如 
地 址 心 ) 多 | http:/ocahost/test/Encode/CurrentCodepage_Resul ¥ 转 到 ”链接 ” 


53, 62, 30, 57, 20, 9F, 4A, 90, 32, 62, C4, 7B, 8B, 4F, 
打 地 最 游戏 沁 例 


53, 62, 30, 57, 20, 9F, 4A, 90, 32, 62, C4, 7B, 8B, 4F, 
Cookie: 打 地 和 服 游 戏 沁 例 


56, 6E, EF, 83, 77, 62, 7F, 7D, 78, E5, 3F, 0, BO, 77, 
URL : 打 地 最 游戏 ? 例 


bb, OE EH B53, Ft, O02, (FH, TU 18, Bo, SH 0, BO, TY 
Form: 亲 地 绍 游戏 ? 例 


53, 62, 50, 57, 20, 9F, 4A, 90, 32, 62, C4, 7B, 8B, dP, 
Cookie: 工 公 梧 栏 慑 丁 


吞 | 完毕 人 本 地 Intranet 





图 3-44 “Request 解码 结果 
在 接收 页 面 中 ， 首 先 在 CodePage 为 936 时 取得 了 Cookie 的 值 ， 可 以 看 到 它 和 直接 输出 的 字符 串 是 完全 一 致 的 ， 不 管 是 内 存 编码 还 是 显示 结果 。 
然后 将 CodePage 改 为 950， 再 取得 URL 传 递 和 表单 提交 的 值 ， 可 以 看 到 内 存 编码 已 经 不 对 了 ， 已 经 出 现 问号 ( 即 “3F，0”) 。 


再 往 下 ， 第 二 次 取得 的 Cookie 值 为 什么 是 正确 的 〈 看 内 存 编码 ) 呢 ? 原因 很 简单 ，Request.Cookies 集 合 已 经 解析 过 了 、 第 二 次 及 以 后 的 访问 会 直接 返回 对 应 项 目的 值 ， 不 会 再 进行 解析 。 此 时 
CodePage 是 什么 都 无 所 谓 了 ， 不 会 影响 结果 。 换 句 话 说 ， 想 以 指定 编码 解析 输入 数据 时 ， 应 该 在 访问 对 应 集合 之 前 设 定 CodePage。 


3.6 Charset 的 重要 作用 


3.6.1 ”影响 网 页 的 显示 


浏览 器 接收 到 网 页 的 字 节 流 后 ， 将 根据 HTTP Header 信 息 中 的 CharSet 或 HTML 中 的 Charset 指 定 的 字符 集 显 示 网 页 。 如 果 二 者 都 没有 设 定 ， 将 使 用 默认 的 字符 集 显 示 。 
为 了 保证 页 面 的 正确 显示 ， 应 该 使 CharSet 与 输出 时 所 用 的 CodePage 相 对 应 。 如 CodePage 是 936， 那 么 CharSet 就 用 GBK，950 就 用 Big5，932 就 用 Shift-JIS 等 。 
由 于 CharSet 只 有 一 个 值 ， 如 果 程 序 中 变换 CodePage 进 行 输出 的 话 ， 那 么 一 定 有 一 部 分 字符 是 不 能 正确 显示 的 。 如 何在 一 个 页 面 同时 显示 两 种 字符 集 的 字 呢 ?可 以 尝试 使 用 HTML 实 体 。 
HTML 实 体 就 是 类 似 “&#40165; ” (这 个 是 “ 筷 ” 字 ) 的 样子 ， 其 中 的 “40165” 是 字符 的 Unicode 编 码 的 十 进 制 数字 。 
看 一 下 范例 。 
Codepage Charset.asp，GBK 编 码 


<%$Qcodepage=936%> 
< 多 








Response.Charset = "BIGD57" 
' 先 看 Big5 的 
Response.Codepage=950 
Response.Write chr(&HB3BE) & "<br>" 
'! 再 看 GBK 的 
Response.Codepage=936 
Response.Write chr(&HB3BE) & "<br>" 
































' 转 换 为 HTML 实 体 再 显示 

str = chr (&HB3BE) 

hexStr = hex(ascW (str)) 'Unicode 编 码 的 十 六 进 制 形式 
codeNumber = Clng("&H" & hexStr) ' 取 得 十 进 制 数值 





Response.Write "“&#" & codeNumber & ™;" 
$> 


运行 结果 如 图 3-46 所 示 。 


EB http://localhost/testfEncode/Codepage ... [] 人 
文件 候 ) ”编辑 候 ) ”查看 的 ”收藏 的 工具 眶 ) 帮助 时 ) 徐 


2 


局 
局 
小 


旦 | 完毕 钊 | 本 地 Intranet 





图 3-46 ”Charset 影 响 显 示 效 果 


因为 Charset 是 Big5， 意 味 着 CodePage 为 950 时 输出 的 字符 可 以 正确 显示 ，936 时 输出 的 字符 则 不 能 ， 所 以 936 时 输出 的 “ 尘 ” 字 被 显示 成 了 “ 筷 ” 字 。 不 过 ， 只 要 将 字符 转换 为 HTML 实 体形 式 就 可 以 
正常 显示 了 ， 转 换 方 法 很 简单 ， 只 要 通过 AscW 函 数 取得 字符 的 Unicode 编 码 ， 然 后 转 为 十 进 制 数字 ， 按 格式 拼接 即 可 。 


3.7 ”数据 库 操作 中 的 编码 转换 


ASP 操 作 的 数据 库 通 常 为 Access 和 SQL Server。 下 面 以 SQL Server 为 重点 ， 讲 解 一 下 数据 库 操作 过 程 中 的 编码 转换 问题 。 


3.8 ”编码 转 换 整 体 流程 图 


下 面 以 POST 方式 提交 表单 为 例 ， 看 一 下 编码 转换 的 整体 流程 ， 如 图 3-57 所 示 。 


输入 框 中 的 文字 【Unicnode 纺 码 ) 根据 @Codepage 


污 取 ASP 源 文件 ， 静 态 文本 直接 转 
撞 汶 Unicode 编 码 
根据 Charset 转 撞 为 对 应 编码 全 用 
RequestLFhorm 、Requestluuerwsiring 


或 Request.Cookies 集 合 





URL 编 码 ( 吕 AA 吕 BB 形式 ) 





ai Eee 对 URL 人 参数、 表单 提交 
URL 解码 


根据 Code Page 转 换 为 
对应 的 Unicode 编 码 





通过 ADO、FSO 等 组 件 广 
数据 诺 ” 文件 或 其 他 国 入 ， 基 终 也 征 Unicode 涡 的 
形式 的 数据 


进行 奉 干 步 处 理 





通过 ADO、FSO 等 组 件 使 用 Response 输 出 


保存 到 数据 库 或 文件 
根据 CodePage 转 措 为 对 应 编码 


其 他 输出 形 取 


训 虐 痊 接 收 HTML 


根据 Charset 指 定 字 侍 储 显示 





图 3-57 ”编码 转换 整体 流程 图 


编码 转换 的 关键 点 主要 是 : 提交 数据 、 读 取 源 文件 ，Request 解 析 、 数 据 库 和 文件 操作 、Response 输 出 和 浏览 器 显示 。 碰 到 乱码 的 情况 时 ， 只 要 顺 着 流程 图 依次 推算 每 个 关键 点 的 结果 ， 就 可 以 知道 问 
题 出 在 哪里 ， 然 后 对 症 下 药 即 可 。 


3.9 ”问题 举例 


3.9.1 如 何 编写 UTF-8 编 码 的 程序 


要 编写 一 套 UTF-8 编 码 的 程序 ， 具 体 应 该 如 何 做 呢 ? 
" 所 有 ASP 文 件 保存 为 UTF-8 编 码 ， 然 后 以 UTF-8 编 码 打 开 进 行 编 辑 。 
. 每 个 ASP 文 件 都 使 用 @Codepage=65001。 
. 每 个 ASP 文 件 前 部 都 使 用 Response.Codepapge=65001， 以 消除 Session.Codepage 可 能 带 来 的 影响 。 
. 如 果 使 用 了 Response.Chatrset 必 性， 那么 应 该 设置 为 UTF-8。 
. HTML 中 的 Chatrset 使 用 UTF-8， 设 置 Chatset 的 <meta> 行 放 在 <title> 行 之 前 ， 以 防 解析 错误 。 


"引用 的 JS、CSS 等 文件 也 要 另存 为 UIF-8 编 码 ， 或 者 在 引用 时 声明 文件 所 使 用 的 charset 也 可 以 。 如 : 





<script type="text/javascript" src="test.js" charset="gbk"></script> 


编写 其 他 编码 的 程序 也 是 类 似 的 ， 使 用 对 应 的 CodePage 和 charset 即 可 。 经 过 如 此 处 理 的 多 套 不 同 编码 的 程序 即使 放 在 一 起 也 不 会 互相 干扰 。 


3.10 ”关于 本 地 化 


本 地 化 包含 的 内 容 很 多 ， 如 数字 日 期 和 时 间 的 格式 、 货 币 符号 、 排 序 规则 、 键 盘 用 法 、 符 号 、 图 标 、 颜 色 、 动 作 、 思 想 、 习 惯 、 法 律 等 很 多 方面 。 
在 ASP 中 ， 可 以 通过 切换 区 域 设 置 ， 来 达到 本 地 化 的 目的 ， 当 然 ， 能 够 本 地 化 的 仅仅 有 数字 、 日 期 、 时 间 、 货 币 和 排序 规则 。 


打开 系统 的 “控制 面板 /区 域 和 语言 选项 ”， 可 以 变更 选择 的 区 域 ， 那 么 当前 的 数字 、 日 期 、 货 币 等 的 格式 就 会 发生 改变 。 在 ASP 中 切换 区 域 的 作用 也 是 类 似 的 ， 并 且 初 始 的 数字 、 日 期 、 货 币 等 的 格式 
也 是 由 控制 面板 这 里 的 设置 决定 的 。 


如 图 3-66 所 示 是 “区 域 选项 ”对 话 框 的 图 片 。 


区 域 和 语言 选项 
区 域 选项 | 


怀 谁 和 格 式 
这 个 选项 影响 到 某 些 程序 如 何 格式 化 数字 、 、 时 [可 和 日 期 。 





澡 笠 一 个 写 共 首选 项 区 本 的 项 或 后 击 “ 目 定 义 ”选择 您 自己 的 格式 


中 文 (中 国 ) TT 
示例 


123, 456, 789. 00 
¥123, 456, 789. 00 
fn6:Us4 
2011-11-27 
2011 年 11 月 27 日 





图 3-66 ”区 域 选项 对 话 框 


单 击 “ 自 定义 ”按钮 ， 可 以 详细 设置 各 种 格式 ， 如 图 3-67 所 示 。 


自 定 义 区 域 选 项 





数字 | 货币 | 时 间 | 日 期 | 排序 
| 日历 
当 键 入 的 年 份 是 两 位 数字 时 ， 将 其 显示 为 在 这 些 年 之 间 (Y) : 


短 日 期 
短 日 期 示例 : 2011-11-27 


址 日 期 格式 (8) : 
日 期 分 隔 符 (D0) : 


长 日 期 
长 日 期 示例 : 2011 年 11 月 27 日 





长 日 期 格式 (L): yyyy 年 下 月 日 








WE TE 





图 3-67 ”区域 选 项 的 自 定义 选项 


第 4 章 XMLDOM 操 作 


XML 本 身 很 简单 ， 一 个 XML 文 件 只 是 一 个 普通 的 文本 文件 而 已 ， 但 是 ， 由 于 XML 独 特 的 层次 结构 ， 从 中 解析 数据 是 相当 麻烦 的 。 


DOM 是 Document Object Model 的 缩写 ， 它 定义 了 一 个 与 平台 、 语 言 无 关 的 接口 ， 允 许 程序 和 脚本 动态 地 访问 、 更 新 XML 文 档 的 内 容 、 结 构 和 样式 。DOM 只 是 一 种 定义 ， 它 只 是 说 这 种 模型 应 该 怎 
么 样 ， 而 没有 具体 实现 它 ， 任 何人 可 以 用 任何 语言 来 实现 它 。 


MSXML 组 件 是 微软 的 XML 解析 器 。 它 以 COM 对 象 的 形式 实现 了 DOM ， 它 会 将 XML 数据 变 成 一 个 个 对 象 ， 通 过 对 象 的 属性 和 方法 就 可 以 进行 各 种 操作 ， 方 便 快捷 。 


DOM 实 现 只 是 MSXML 组 件 的 一 部 分 ， 它 还 实现 了 SAX2、XSD、Xpath 和 XSLT 等 模型 。 


4.1 ”MSXML 简介 


4.1.1 ”MSXML 的 版 本 


MSXML 的 版 本 比较 混乱 ， 系 统 不 同 ， 安 装 的 软件 不 同 ，MSXML 的 版 本 可 能 就 不 同 。 下 面 简单 列举 几 个 : 


" MSXML 最 新 的 版 本 是 MSXMIL6.0， 通 常 需要 单独 下 载 安装 。 


. MSXMIL5.0 是 伴随 着 Office 2003 或 Office 2007 而 来 的 。 

. IE6.0 附 带 的 是 MXML3.0 SP2 版 本 ，IE6.0 SP1 附 带 的 是 MXML3.0 SP3 版 本 。 

. MDAC 2.7 (Windows XP) 附带 的 是 3.0SP2， 而 MDAC 2.8 (Windows Server 2003) 是 3.0SP4。 

. Mictosoft.NET Framework 3.0、Mictosoft Visual Studio 2005、Microsoft SQL Server 2005 附 带 的 是 MSXML 6.0。 


MSXML 的 多 个 版 本 是 共存 的 ， 即 使 安装 了 新 版 本 ， 旧 版 本 还 是 存在 的 。MSXML5.0 对 应 的 文件 是 MSXML5.dll， 它 通常 位 于 C: \Program Files\Common Files\Microsoft Shared\OFFICE11 目 录 
下 ,而 MSXML.dll、MSXML2.dll、MSXML3.dll、MSXML4.dli 和 和 MSXML6.dll 是 位 于 System32 目 录 下 的 。 


建议 使 用 6.0 版 本 ， 其 次 是 3.0 版 本 。 因 为 6.0 版 本 的 安全 性 、 性 能 、 稳 定性 和 W3C 一 致 性 都 是 最 好 的 ，3.0 版 本 的 安 洲 最 广泛 ， 而 5.0 版 本 主要 是 用 来 支持 Office 的 ，4.0 版 本 已 被 6.0 版 本 蔡 代 。 
本 章 中 的 范例 均 以 6.0 版 本 为 准 。6.0 版 本 实现 了 以 下 标准 : 


.XML 1.0 (DOM 和 SAX2 API) 





: XML Schema (XSD) 1.0 
XPath 1.0 


* XSLT 1.0 


4.2 创建 Document 对 象 


创建 Document 对 象 使 用 以 下 格式 即 可 : 














Set doc = Server.CreateObject ("Microsoft .XMLDOM") 


系统 中 可 能 存在 多 个 版 本 的 MSXML 组 件 ， 表 4-2 是 每 个 版 本 对 应 的 创建 字符 串 ， 一 般 建议 使 用 6.0 版 本 或 3.0 版 本 。 


表 4-2 MSXMIL 的 版 本 及 对 应 字符 串 


版 本 对 应 字符 串 


0.0 Msxml2.DOMDocument.6.0 

3.0 MsSxml2.DOMDocument.3.0 

4.0 Msxml2.DOMDocument.4.0 

40 Msxml2.DOMDocument.3.0 
Msxml2.DOMDocument 

0 Msxml.DOMDocument 
Microsoft. XMLDOM 

1.0 无 


无 法 确认 系统 支持 哪些 版 本 时 ， 可 以 按 版 本 号 从 高 到 低 依次 创建 ， 直 到 创建 成 功 。 下 面 看 一 下 学 例 ， 范 例 中 将 创建 的 代码 封装 为 一 个 Function。 


createObject.asp 


< 对 
Function getXxmlDom () 
Dim progIDs 
Dim xmlDom 
progIDs = Array ("Msxml2 .DOMDocument .6.0", "Msxml2.DOMDocument .3.0", "Msxml2.DOMDocument", "Microsoft .XMLDOM") 
On Error Resume Next 
"循环 创建 对 象 
For i = 0 To UBound (progIDs) 
Set xmlDom = Server.CreateObject (progIDs (i)) 
f Err.number=0 Then 
' 如 果 成 功 ， 则 返回 
Set getXmlDom = xmlDom 
'response.write progIDs (i) ' 看 看 创建 了 哪个 
Exit Function 







































































Else 
'! 如 果 失 败 ， 清 空 Err 
response.write progIDs(i) & ":" & err.description & "<br>" 
Err.clear () 

End 

















Next 
End Function 
$> 





版 本 不 同 ， 支 持 的 属性 和 方法 都 略 有 不 同 ， 下 面 的 学 例 都 是 在 6.0 版 本 上 运行 的 ， 如 果 系 统 没有 安装 6.0 版 本 ， 那 么 可 能 会 出 现 一 些 错误 。 


4.3 ” 载 入 XML 数据 


4.3.1 载 入 数据 


载 入 XML 数据 可 以 使 用 Document 对 象 的 Load 方 法 或 LoadXm 人 方法 ， 前 者 读 入 指定 URL 或 指定 路 径 的 XML 文 肖 ， 后 者 读 入 XML 数据 的 字符 串 。 





xmlDoc.Load Server.MapPath ("music.xml") 
xmlDoc.LoadXml] “<books><book> 兄 弟 </book></books>” 





这 两 个 方法 的 结果 都 是 读 入 成 功 返 回 True， 失 败 则 返回 False。 


4.4 验证 XML 数据 


4.4.1 ParseErrorx 寺 象 


载 入 XML 数据 后 ， 建 议 对 数据 进行 验证 ， 否 则 有 问题 的 数据 可 能 会 影响 后 续 操 作 。 调 用 Load 方 法 或 LoadXm 坊 法 后 ， 通 过 Document 对 象 的 parseError 属 性 可 以 得 到 ParseError 对 象 ， 它 的 属性 如 表 4- 
4 所 示 。 


表 4-4 PatseEttot 对 象 的 属性 


属 性 说 ”了 明 
errorCode 错误 号 
filepos 出 锐 的 地 方 在 文件 中 的 字符 位 置 
line 出 错 的 行 号 
linepos 所 在 行 的 字符 位 置 
reason 原因 摘 述 
srcText 出 错 的 代码 ， 有 时 可 能 返回 空 学 符 串 
url 文档 的 URL 


通过 这 些 属 性 ， 可 知道 错误 的 原因 及 位 置 。 验 证 的 时 机 ， 可 分 为 载 入 时 验证 和 使 用 前 验证 。 


DOM 树 中 的 元 素 、 属 性 、 注 释 、 过 程 指令 等 全 都 是 节点 对 象 ， 整 个 DOM 树 就 是 由 一 个 个 节点 组 成 的 。 


节点 的 数据 类 型 是 |XMLDOMNode, 而 IXMLDOMElement、IXMLDOMAttribute、IXMLDOMComment、IXMLDOMProcessinglnstruction 等 全 都 是 |XMLDOMNode 的 子 类 型 ， 它 们 拥有 
IXMLDOMNode 的 全 部 属性 和 方法 。 


节点 对 象 提 供 了 很 多 属性 ， 使 用 这 些 属 性 可 以 轻松 遍历 整个 DOM 树 ， 表 4-5 是 节点 对 象 的 常用 属性 。 


表 4-5 节点 对 象 的 常用 属性 


属性 名 称 属性 说 明 


nodeName 


» 
pe 
- » 


nodeValue 


二 1 二 1 志 
sr 
三 


sr 
痰 
翅 


nodeType 


> 
[LT 


parentNode 
childNodes 


™ 
- 
本 
- 


十 | 二 
sr 
2 
> 
各 
候 
© 
. 
CD 
区 
>< 
全 
法 


台 

firstChild 第 一 个 子 节 点 
lastChild 最 后 一 个 子 方 点 
previousSibling 前 一 个 兄 贡 届 点 
节点 


nextSibling 后 一 个 兄弟 
属 


attributes . 


六 
I 
a 
n> 
名 


-个 NamedNodeMap 对 和 象 
节点 类 型 字符 串 

广 扩 的 文本 内 容 
节点 的 XML 内 容 


nodeTypeString 


xml 


下 面 看 一 下 范例 。 


traverseNodes.asp 





<%$Qcodepage=936%> 
<!1--#include File="createObject.asp" --> 
< 区 
Response.charset = "GBK" 
Set xmlDoc = getXmlDom () 
xmlDoc.async = False 
xmlDoc.validateOnParse = True  ' 验 证 格式 和 有 效 性 
xmlDoc.ResolveExternals=True ' 外 部 引用 有 效 
xmlDoc.Load (Server.MapPath ("music forTraverse.xml")) 
println "文档 子 节点 数 " ,xmlDoc.childNodes.length 
println "第 一 个 子 节 点 ", xmlDoc.firstChild.nodeName 

ln "最 后 的 子 节 点 ", xmlDoc.lastChild.nodeName 
' 根 元 素 节点 ， 即 音乐 节点 
Set root = xmlDoc.documentElement 
println "专辑 个 数 ", root.childNodes.1length 
"第 一 个 子 节点 ， 即 专辑 节点 
Set firstNode = root.childNodes (0) 
println "第 一 个 专辑 "，, firstNode .nodeName 
' 属 性 集合 
Set attr = firstNode.attributes 
println "第 一 个 属性 ",attr(0) .nodeName & "=" & attr(0) .nodeValue 
' 歌 曲 节 点 的 XML 
println "第 一 个 歌曲 节点 的 XML", "<textarea rows=10 cols=50>" & firstNode.firstChild.xml & "</textarea>" 
' 歌 曲 节点 的 文本 内 容 
println "第 一 个 歌曲 节点 的 文本 内 容 ", firstNode.firstChild.lastChild.previousSibling.parentNode.text 
' 下 一 个 兄弟 节点 ， 即 第 二 个 专辑 节点 
println "第 二 个 专辑 节点 "，firstNode.nextSibling .nodeName 
Set xmlDoc = nothing 
"打印 函数 
Sub println (key,value) 

response.write key & ":" & value & "<br>" 




























































































End Sub 
$> 





运行 结果 如 图 4-5 所 示 。 


3 http://localhost/test/xmldom/traverseNodes.asp - Microsoft Internet Expl... mm ~ 
文件 人 F) 编辑 丛 ) 查看 (Y) 收藏 和 ) 工具 名 ”帮助 仙 ) 


ia2-- 国 轿 入 有 扫 兢 懂 天 大 了 凡 " 重 司 - 国 队 广 
地 址 公 ) | 卷 1http; jocalhostitest/xmldomjtraverseNodes.asp | Y 转 到 怕 snaogitt 国 0 


文档 子 节点 数 :4 
第 一 个 子 节点 :xnl 
最 后 的 子 节点 :音乐 
专辑 个 数 :2 
第 一 个 专辑 :专辑 
第 一 个 属性 :名 称 = 雪 
第 一 个 歌曲 节点 的 XL : 
《歌曲 > 
《序号 >01《/ 序 号 > 
《名 称 > 雪 </ 名 称 > 
《格式 >mp3</ 格 式 > 
《文件 名 >02_snow. mp3《</ 文 件 和 名 》 
《文件 大 小 >3020369《/ 文 件 大 小 》 
《简介 ><!1[CDATA[ 雪 让 万 物 都 安静 下 来 。]]> 
这 是 上 帝 最 宝贵 
的 祝福 。</ 简 介 > -一 
《7 歌曲 > 


上 
上 
-一 一 一 


第 一 个 歌曲 节点 的 文本 内 容 :01 雪 mp3 02 snow. mp3 3020369 雪 让 万 物 
都 安静 下 来 。 这 是 上 帝 最 宝贵 的 祝福 。 
第 二 个 专辑 节点 :专辑 


埠 | 完毕 铅 本 地 Intranet 








图 4-5 节点 的 常用 属性 


范例 中 使 用 了 Document 对 象 的 documentElement 属 性 ， 它 返回 根 元 素 节 点 ， 使 用 它 就 不 必 关 心 根 元 素 是 文档 的 第 几 个 子 节 点 了 。 通 常 使 用 根 元 素 节点 作为 访问 数据 的 起 始 节 点 。 


4.6 ”查找 节点 


对 于 XML 结 构 比 较 复杂 、 层 次 较 深 或 结构 不 确定 的 情况 ， 再 使 用 firstChild、lastChild、nextSibling 和 parentNode 等 方式 来 访问 节点 就 不 太 合适 了 。 


下 面 就 介绍 几 个 快速 访问 特定 节点 的 方法 。 


4.7 ”取得 节操 信息 


4.7.1 判断 节点 类 型 


通过 节点 的 nodeType 和 nodeTypestring 属 性 可 以 知道 节点 的 类 型 ， 对 应 关系 如 表 4-8 所 示 。 


表 4-8 节 点 类 型 


其 中 ，entity、documenttype 和 notation 都 是 与 DTD 使 用 相关 的 ， 可 以 忽略 它们 。 


节点 类 型 
NODE ELEMENT 
NODE ATTRIBUTE 
NODE TEXT 
NODE CDATA SECTION 
NODE ENTITY REFERENCE 
NODE ENTITY 
NODE PROCESSING INSTRUCTION 
NODE COMMENT 
NODE DOCUMENT 
NODE DOCUMENT TYPE 
NODE DOCUMENT FRAGMENT 
NODE NOTATION 


4.8 ”追加 证 点 


nodeType 数值 


hi 


站 


nodeTypeString 字符 串 


element 

attribute 

text 

cdatasection 
entityreference 
entity 
processinginstruction 
comment 
document 
documenttype 
documentfragment 


notation 


追加 节点 的 基本 步骤 是 : 创建 节点 ， 设 置 属性 或 值 ， 将 它 追 加 到 父 节点 上 。 如 果 是 多 层 结构 ， 则 需要 一 层 一 层 地 追加 ， 某 些 类 型 的 节点 需要 追加 到 Document 对 象 上 。 


4.9 修改 节点 


为 了 修改 节点 ， 首 先 需要 使 用 各 种 办 法 查找 到 目标 节点 ， 然 后 使 用 各 种 方式 设置 属性 、 文 本 等 即 可 。 


简单 的 范例 如 下 。 


<%Qcodepage=65001%> 
<!--#include File="createObject.asp" --> 





<% 


Response.charset = "UTF-8" 


Set xmlDoc = getXmlDom 
xmlDoc.LoadXML "< 音乐 >< 
"修改 节点 的 属性 











Set node = xmlDoc.selectSingleNode ("/ 音 乐 / 专 辑 ") 
十 " 


node .getAttributeNode ("名 称 ") .value = " 

' 通 过 namedMap 修 改 

Set nameMap = node.attributes 

nameMap .getNamedItem(" 名 称 ") .value = " 雨 " 

' 使 用 setNamedItem 方 法 也 可 

Set attrNode=xmlDoc.createAttrilbute ("编号 ") 
attrNode.appendChild (xmlDoc.createTextNode ("M2")) 
nameMap .setNamedItem (attrNode) 








' 修 改 文本 节点 的 值 











Set node = xmlDoc.selectSingleNode ("/ 音 乐 /专辑 /歌曲 /名 称 ") 


node.text = 





"和 之 歌 " 








node.firstChild.nodeValue=" 春 之 歌 " 





"替换 节点 


node.replaceChilqd xmlDoc.createTextNode (" 春 之 歌 ") ，noqde .firstChild 








' 输 出 xml 数 据 











Response.Write Server.HIMLENcCode (xmlDoc.documentElement .xml) 


将 > 


运行 结果 如 图 4-14 所 示 。 


modifyNode.asp 


() 
专辑 名 称 =' 雪 '， 编号 ='M1'>< 歌 曲 >< 名 称 > 冬 之 谣 </ 名 称 ></ 歌 曲 ></ 专 辑 ></ 音 乐 >" 


| http://localhost/test/xmldom/modifyNode.asp ... 国 六 
交 件 下 冉 部 下 ) 查看 ”收藏 起 ) 工 共 呈 天助 时) 条 


-加 -同人 交 有 所 雪恨 @ 
地 址 品 ) 役 http:Wiocalhost/testixmidom/|x | 国 苇 到 医 snagt 国 名 


“ 首 和 泉 >《 专 事 名 称 = 十 ”编写 = M2 > 歌曲 > 名称 > 
者 之 歌 </ 名 称 ></ 歌 曲 ></ 专 辑 ></ 音 乐 > 


外 本 地 Intranet 





图 4-14 修改 节点 
修改 属性 时 ， 也 可 以 使 用 Element 对 象 的 set-Attribute 和 setAttributeNode 方 法 。 节 点 如 果 存 在 就 蔡 换 ， 不 存在 则 追加 。 


修改 节点 值 时 ， 还 可 以 使 用 replaceChild 方 法 ， 它 用 新 节点 替换 指定 的 节点 。 其 第 一 个 参数 是 新 节点 ， 第 二 个 参数 是 旧 节 点 。 


4.10 删除 节点 


删除 节点 的 办 法 也 是 很 多 的 ， 不 再 详 述 ， 直 接 给 出 一 个 范例 。 
removeNode.asp 


<%Qcodepage=936%> 

<!--#include File="createObject.asp" --> 

< 区 

Response.charset = "GBK" 

Set xmlDoc = getXxmlDom () 

XmlLDoc .LoadqXMIL "< 音乐 >< 专 辑 名 称 =' 雪 ' 编号 ='M1'>< 歌 曲 >< 名 称 > 冬 之 衣 </ 名 称 ></ 歌 曲 ></ 专 辑 ></ 音 乐 >" 
"删除 节点 的 属性 
Set node = xmlDoc.selectSingleNode ("/ 音 乐 / 专 辑 ") 

node.removeAttribute (" 名 称 ") 
node.removeAttributeNode (node .getAttributeNode (" 编 号 ") ) 
node.Attributes.removeNamedItem "编号 " 

!' 输 出 xml 数 据 

Call printxml () 

' 删 除 文 本 节点 

Set node = xmlDoc.selectSingleNode ("/ 音 乐 / 专 辑 /歌曲 /名 称 ") 

node.removeChild (node.firstChild) 

! 输 出 xml 数 据 

Call printxml () 

' 删 除 “ 名 称 ” 节 点 

node .parentNode.removeChild (node) 

! 输 出 xml 数 据 

Call printxml () 

' 批 量 删除 

Set nodes = xmlDoc.selectNodes ("// 歌 曲 ") 

nodes .removeAll () 

!' 输 出 xml 数 据 

Call printxml () 

!' 输 出 xml 数 据 

Sub printxml 

Response.Write Server.HIMLENcCode (xmlDoc.documentElement .xml) & "<br>" 
























































End Sub 
$> 





运行 结果 如 图 4-15 所 示 。 


3 http://localhost/test/xmldom/removeNode.asp - Microsoft Internet... 别 p> 4 
文件 FF) 编辑 瑟 ) 查看 (Y) 收藏 人) 工具 中 帮助 全) 条 


" 介 . 固 国 入 PP 拔 正 懂 天 大 了 人 "各 园 " 国 
地 址 蕊 ) 关 ]http ;Wocalhostitest/xmldomjremoveNode.asp ~| 转 到 ” 恬 snagt 国 名 


>» 


《 音 朱 >X《 专 辑 >X《 歌 曲 X《 名 称 裤 之 育 《</ 名 称 >《/ 歌 曲 X《/ 专 辑 >X《/ 音 乐 > 
《音乐 X《 专 辑 X《 歌 曲 X《 名 称 />《</ 歌 曲 >X《/ 专 辑 >X《/ 音 乐 > 

《音乐 >X《 专 辑 >X《 歌 曲 />《/ 专 辑 >X《/ 音 乐 > 

《 音 乐 >X《 专 辑 />《/ 音 乐 > 





起 ] 完 : 鲁 本 地 Intranet 


图 4-15 ”删除 节点 
removeAttribute 和 removeAttributeNode 方 法 删除 指定 的 属性 ， 但 是 ， 如 果 属 性 有 上 默认 值 ， 会 自动 以 该 默认 值 追加 一 个 属性 ， 结 果 相 当 于 将 原来 的 属性 值 替换 为 默认 值 。 


要 批量 删除 ， 使 用 selectrNodes 方 法 查找 到 所 有 符合 条 件 的 节点 ， 然 后 使 用 removeAl| 方 法 即 可 。 


4.11 人保 他 XML 


保存 XML 使 用 Save 方 法 。 它 可 以 保存 到 另 一 个 Document 对 象 中 ， 也 可 以 保存 到 Response 对 象 中 ， 但 通常 都 保存 到 文件 中 。 


范例 语句 如 下 : 





xmlDoc.save (server.mapPath ("result.xml")) 


此 语句 将 DOM 对 象 中 的 数据 保存 为 resultxml 文 件 ， 文 件 的 编码 取决 于 XML 声明 中 的 encoding 属 性 ， 如 果 没 有 指定 ， 则 保存 为 UTF-8 编 码 。 


保存 文件 时 ， 并 不 会 进行 XML 有 效 性 的 验证 ， 如 果 XML 有 问题 ， 再 次 读 入 时 就 会 出 错 。 


4.12 ”配合 XSLT 转 换 数 气 


XML 数据 用 于 显示 时 ， 通 常 使 用 XSLT 进 行 格式 化 。 格 式 化 这 个 工作 可 以 交 给 浏览 器 来 做 ， 也 可 以 交 给 后 台 来 做 。 后 者 的 主要 好 处 就 是 它 返回 的 是 HTML， 而 不 是 XML， 与 其 他 HTM|L 数 据 更 容易 整合 。 


范例 如 下 。 


transformNode.asp 


<%$Qcodepage=65001%> 

<!—-#include File="createObject.asp" --> 
< 多 

Response .charset = "UTF-8" 

"XML 数据 
Set xmlDoc = getxXmlDom () 

xmlDoc.async = False 

xmlDoc.Load Server.MapPath ("music FExample.xml") 
'XSL 数 据 

Set stylesheet = getXxmlDom () 

stylesheet.async = False 

stylesheet.Load Server.MapPath ("music.xsl1") 

' 全 部 转换 

Response.Write xmlDoc.transformNode (stylesheet) 
' 只 转换 菜 个 节点 
Set node = xmlDoc.selectSingleNode ("/ 音 乐 /专辑 [@ 名 称 =' 水 中 百合 ']") 
Response.Write node.transformNode (stylesheet) 

$> 












































运行 结果 如 图 4-16 所 示 。 


Bp http://localhost/test/xmldom/transformNode.asp - Microsoft Internet Explorer 


文件 人 下) 编辑 候 ) 查看 (Y) 收藏 以) 工具 中 ) 帮助 时 ) 
-日 -四 加 的 PP 过 六 四 全- 全- 贫 @& 


地 址 D) 科 http:ffocahost/testjxmidomftransformNode.asp 到 名 


从 


我 的 音乐 司 





雪 
编号 : M1 


文件 名 文件 大 小 
01 01 Winter Song mp3 3007730 
02_snow.mp3 3020369 





文件 大 小 
2250429 


文件 大 小 
2250429 
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图 4-16 ”配合 XSLT 转 换 数据 


4.13 ”使 用 命名 空间 


由 于 XML 标签 的 名 称 是 可 以 任意 书写 的 ， 所 以 多 人 编写 XML 时 ， 可 能 会 使 用 相同 的 标签 名 称 。 当 在 同一 个 文档 中 引用 这 些 标签 时 ， 就 会 引起 名 称 冲 突 。 为 了 避免 这 个 问题 ， 就 创造 了 命名 空间 。 
使 用 命名 空间 ， 简 单 地 说 ， 就 是 给 XML 标签 加 上 前 缀 ， 来 自 A 文 档 的 标签 加 上 A 前 缀 ， 来 自 B 文 档 的 标签 加 上 8B 前 缀 ， 以 示 区 分 。 


举例 如 下 : 








<?xml version="1.0" encoding="GBK"?> 

<A:html xmlns:A="http://www.w3.org/xxx" xmlns:c="http://java.sun.com/yyy"> 
<c:set value=" 张 三 " var="name" scope="session"/> 
<A:head> 





<A:title> 你 好 ,<c:out value="$ {name}"/></A:title> 
</A:head> 
<A:body> 
<A:P> 点 击 进入 
<A:a A:href="http://www.xxx.com"> 首 页 </A:a> 





</A:p> 
</A:body> 
</A:html> 


在 html 节 点 中 ,使 用 “xmlns: A='http://www.w3.org/xxx” 声 明了 该 元 素 使 用 的 命名 空间 。 其 中 “xmlns” 是 xml namespace 的 缩写 ， 也 就 是 XML 命 名 空间 。 “A” 是 后 面 命名 空间 的 简写 ， 也 就 
是 要 使 用 的 前 级 。“http://www.w3.org/xxx” 是 使 用 的 命名 空间 ， 通 常 是 一 个 URI (统一 资源 标识 符 ) 。 


前 绎 是 “A”“B”“ABC” 还 是 “Hello” 都 是 可 以 的 ， 只 要 与 其 他 命名 空间 的 前 缀 不 同 即 可 。 只 有 元 素 和 属性 可 以 使 用 命名 空间 前 级 。 


大 量 的 标签 前 缀 看 起 来 有 点 混乱 。 如 果 某 一 个 命名 空间 的 标签 较 多 ， 可 以 考虑 使 用 默认 命名 空间 。 如 下 例 所 示 : 





<?xml] version="1.0" encoding="GBK"?> 
<html xmlns="http://www.w3.org/xxx" xmlns:c="http://java.sun.com/yyy"> 
<c:set value=" 张 三 " var="name" scope="session"/> 
<heagd> 
<title> 你 好 ，<c:out value="$ {name}"/></title> 
</head> 
<body> 
<P> 点 击 进入 
<a href="http://www.xxx.com"> 首 页 </a> 








</p> 
</body> 
</html> 


对 于 命名 空间 “http://www.w3.org/xxx” ， 没 有 定义 前 缀 ， 同 时 htm| 节 点 也 没有 使 用 前 缀 ， 则 html 节 点 内 部 没有 前 缀 的 节点 都 自动 使 用 该 命名 空间 。 


读 取 该 XML 的 范例 如 下 所 示 。 


NSDefault.asp 


<%Qcodepage=936%> 
<!--#include File="createObject.asp" --> 
< 区 
Response .charset = "GBK" 
' 载 入 文档 
Set xmlDoc = getXmlDom () 
xmlDoc.async = False 
xmlDoc.validateOnParse = True 
xmlDoc.ResolveExternals=True 
xmlDoc.Load (Server.MapPath ("NSDefault Example.xml")) 
' 输 出 所 有 命名 空间 
Set nsList = xmlDoc.namespaces 
For i=0 To nsList.length-1 

response.write nsList.namespaceURI (i) & "<br>" 









































Next 

response.write "<hr>" 
' 使 用 XPath 检 索 节 点 ， 需 要 设置 命名 空间 

xmlDoc.setProperty "SelectionNamespaces", "xmlns:A='http://www.w3.org/xxx' xmlns:c='http://java.sun.com/yyy'" 
"输出 几 个 节点 的 前 缓和 命名 空间 




































































Call printNS (xmlDoc.selectSingleNode ("//c:set")) 

Call PrintNS (xmlDoc.selectSingleNode ("//A:title")) 

Call] ee LDpoc .selectSingLeNoqe ("//A:a")) 

Call PrintNS (xmlDoc.selectSingleNode ("//@href")) 

Set xmlDoc = nothing 

' 输 出 节点 的 前 级 和 命名 空间 

Sub PrintNS (node) 
response.write "节点 : " & node.nodeName & "<br>" 
response.write "前 级 : " & node.prefix & "<br>" 
response.write "命名 空间 " & node.namespaceURI & "<hr>" 


End Sub 
$> 








通过 Document 对 象 的 hamespaces 属 性 可 以 得 到 当前 XML 文 档 中 所 有 命名 空间 的 URI。 


由 于 使 用 了 命名 空间 ， 所 以 使 用 XPath 检 索 节点 时 ， 需 要 设置 SelectionNamespaces 属 性 ， 否 则 将 无 法 检索 到 节点 。 对 于 默认 命名 空间 ，XML 文 档 中 并 没有 定义 前 弘 ， 但 这 里 仍然 定义 了 前 缀 A,， 


则 ,只 使 用 “//title” “//a” 等 表达 式 仍然 是 无 法 检索 到 节点 的 。 


~ 


使 用 默认 命名 空间 时 ， 无 前 绎 的 属性 是 不 会 自动 继承 该 命名 空间 的 ， 如 上 例 中 检索 “href” 属 性 使 用 的 是 “//@href”， 而 不 是 “//@A: href” 。 


创建 XML 结 构 时 ， 若 指定 命名 空间 ， 则 需要 使 用 createNode 方 法 ， 它 的 第 三 个 参数 即 为 命名 空间 URI， 范 例如 下 所 示 。 


createNodeWithNS.asp 





createNodeWithNS.asp 

<%Qcodepage=936%> 

<!—-#include File="createObject.asp" --> 
<% 

Response.charset = "GBK" 

Set xmlDoc = getXmlDom () 

"要 使 用 的 命名 空间 
defau] LNS 二 "nttp://www.w3.org/xxx" 

CNS = Er //java.sun.com/yyy" 

'<html> 节 点 

Set roo LNode=xmlDoc. createNode ("element", "html", defaultNSs) 
xmlDoc.appendChild (rootNode) 
'xmlns:c 属 性 

Set cAttr = xmlDoc.createNode ("attribute", "xmlns:c", cNS ) 
cAttr.nodeValue = CNS 

rootNode.setAttributeNode (cAttr) 

'<c:set> 节 点 

Set cSetNode=xmlDoc.createNode ("element", "c:set", cNS) 
rootNode .appendChild (cSetNode) 

'value 属 性 
Set valueAttr = xmlDoc.createNode ("attribute", "value", cNS ) 
valueAttr.nodeValue = " 张 三 " 

cSetNode.setAttributeNode (valueAttr) 

'<head> 节 点 

Set headNode=xmlDoc.createNode ("element", "head", defaultNSs) 
rootNode .appendChild (headNode) 

'<title> 节 点 
Set titleNode=xmlDoc.createNode ("element", "title", defaultNS) 
headNode .appengdChild (titleNogde) 
"文本 节点 
Set helloAttr = xmlDoc.createNode ("text","", defaultNs ) 
helloAttr.data=" 你 好 " 

titleNode.appengdChild (helloAttr) 

"保存 到 文件 

xmlDoc.save (server.mapPath ("createWithNsResult.xml")) 
Set xmlDoc = nothing 

$> 


























































































































结果 如 图 4-17 所 示 。 


nh 


-<html xmlns="http:/ /www.w3.0rg/xxx xmlns:c="http://jJava.sun.com/yyy > 


<Cc:set value=" 张 三 " /> 
-<head> 


<title> 你 好 </title> 
</head> 
</html> 


图 4-17 使 用 命名 空间 创建 节点 


4.14 XML 中 的 空 日 字 行 


在 XML 文 档 中 ， 有 一 些 空白 字符 是 XML 语 法 本 身 的 需要 ， 如 图 4-18 中 的 圆 点 位 置 所 示 。 可 以 根据 需要 插入 一 个 或 多 个 空白 字 
白字 符 并 不 会 出 现在 节点 内 容 中 。 


字符 ， 二 者 的 效果 是 一 样 的 。DOM 解 析 时 会 自动 抛弃 i 


和 


这 


些 空白 字 


A 


付 ， 





这 些 


内 


<?xmleversione=e 1.0 e?> 
<Listenamee=e Frult List e> 
<lteme>Apple</Ilteme> 


<lteme>Banana</lteme> 
<lteme>Pear</lteme> 
</ Liste>e 





图 4-18 ”必要 的 空白 字符 
其 他 位 置 的 空白 字符 理论 上 都 属于 XML 内 容 本 身 ， 应 该 保持 原样 ， 如 图 4-19 中 的 圆 点 位 置 所 示 。 
但 是 ， 图 中 方 框 圈 起 位 置 的 空白 字符 ， 通 常 都 是 出 于 美观 的 目的 添加 的 ， 实 际 上 并 不 需要 ， 所 以 MSXML 组 件 默认 是 抛弃 这 些 位 置 的 空白 字符 的 。 


如 XML 内 容 如 图 4-20 所 示 。 


<?xml version= 1.0 ?> 
<List name= eFrulteListe >e 
e<ltem>eApplee</ltem>e。 


oe<ltem>eBananae</ltem>e 
oe<|ltem>ePeare</Iltem>e 
</List> 





图 4-19 ”XML 内容 中 的 空白 字符 


CO] Saori -71 07 oS 
Sm el sion 1.0 2 
<List name= Fruit 3List w 
mn Vy SS 
i /4 
uu “ltem, fk . 
» aa Apple > “/l1tem2d 


LJLJILJI” UU 


ultem banana, « 
bb,__“/ Ttem24 : 
“ltem ?Pear“/ ltem2d 
/Listo) 


Lj 


Ladleadilsd 


DL 





图 4-20” 带 空白 字符 的 XML 内 容 


解析 后 ，List 节 点 的 DOM 树 结构 如 图 4-21 所 示 。 


节 所 名 称 凶 尽 类 型 节点 Yalue 


List LANMLDOME,] ement 

ne IXMLDONMAt+tribute Re 向 

| Fruit List 会 | 
#text LxXNMLDOMText 22| ed 加 

-一 [tem LIANMLDOME,] ement 

———#text IXNMLDONMText | aa Apple | 

-一 [tem LANMLDOME,] ement 

SE |Banana 人 A| 
#text Lx2NMLDOMText bb | 加 

——l tem LXNLDOME] ement 

rt IXNLDONMText |Pear | 


图 4-21 DOM 树 的 结构 


可 以 看 到 ， 属 性 和 文本 节点 的 值 都 是 保持 原样 的 ， 空 格 、Tab 键 和 回 车 换行 符 都 在 ， 而 节点 之 间 的 空白 符 都 被 抛弃 了 。 如 果 想 保留 的 话 ， 将 Document 对 象 的 PreserveWhitespace 属 性 设置 为 True ( 默 
认为 False) 即 可 ， 注 意 对 该 属性 的 设置 需要 在 载 入 XML 数据 前 进行 。 


将 PreserveWhitespace 属 性 设置 为 True 后 ，List 节 点 的 DOM 树 结构 如 图 4-22 所 示 。 


节点 名 称 


List 


“name 


一 一 一 -并 tEXt 


——#text 


——1 tem 


————-text 


——#text 


——l tem 


一 一 一 -并 tEXt 


——#text 


——l tem 


一 一 一 -并 tEXt 


——#text 


4.15 XPath 的 使 用 


XPath 是 一 种 在 XML 文档 中 查找 元 素 的 语言 ， 


现 了 XPath1.0， 并 没有 实现 XPath2.0。MSXML3.0 也 支持 XPath1.0 版 本 。 


节 扩 类 型 
LXNLDONME,] ement 


LXNMLDOMAttribute 
IXNMLDOMText 


LAMLDOMText 
LANMLDOME1 ement 
LAMLDOMText 


LIXNMLDOMText 
LANMLDOME,1 ement 
LANMLDOMText 


LXNMLDOMText 
LXNMLDOME1 ement 
LANMLDOMText 


LAMLDOMTEext 


图 4-22 ”保留 空白 字符 后 DOM 树 的 结构 


第 5 章 


XMLHTTP 操 作 


节点 Yalue 


| Fruit List 
22| 
| Fruit List 
22 | 
| aa hpple | 
|Banana 
bb | 
|Pear | 


设计 为 XSLT、XPointer 以 及 其 他 XML 解析 软件 使 用 ， 于 1999 年 成 为 W3C 标 准 ， 最 新 的 标准 是 XPath3.0 版 本 。 但 是 ，MSXML6.0 是 2006 年 的 产品 ， 


XMLHTTP 就 像 一 个 隐形 的 小 型 浏览 器 ， 我 们 可 以 使 用 它 “偷偷 ”地 发 送 数据 给 服务 端 ， 并 处 理 返 回 的 数据 。 虽 然 XMLHTTP 的 名 字 中 有 “xml” 的 字样 ， 但 实际 上 发 送 和 接收 的 数据 是 不 限于 xm| 格 式 


的 。 


XMLHTTP 包 含 客户 端 使 用 的 XMLHTTP 对 象 和 服务 端 使 用 的 ServerXMLHTTP 对 象 ， 下 面 首先 介绍 客户 端的 XMLHTTP 对 象 的 使 用 。 


5.1 XMLHTTP 的 使 用 


首先 看 一 个 简单 的 例子 。 


client1.html 





<script language="javascript"> 
Function doGet () { 


Var Url= 








Var xmlH 





"server.asp"; 


ttp = new ActiveXObject ('MSXML2 .XMLHTTP ' ) ; 














xmlHttp.open ("GET",url, false); 
xmlHttp.send (null); 






































If (xmlHt 


tp.readyState == 4 && xmlHttp.stat 


us == 200){ 


alert (xmlHttp.responseText); 


} 





} 
</script> 
<Input type="button" value=" 发 送 GET 请 求 " onclick="doGet () "> 








server.asp 的 代码 很 简单 ， 只 输出 了 两 行文 字 。 


server.asp 


<%Qcodepage=936%> 

< 区 

response.charset="GBK" 

response.write "One World One Dream" &vbcrilf 
response.write "同一 个 世界 ， 同 一 个 梦想 " 

$> 














单 击 按钮 之 后 ， 对 话 框 就 显示 出 了 服务 端 返回 的 文字 ， 如 图 5-1 所 示 。 


3 http://localhost/test/xmlhttp/client1.html - Microsoft Internet Explo... [] 兴 


i 


© FR "人 @' 凡 名 从 /搜索 了 ?收藏 天 < 7 和 p< 
地 址 心 ) 忽 | http:jiocalhostjtestjxmlhttpjclient1.html v | 因 畦 到 ” 猴 接 





发 送 GET 请 求 Microsoft Internet Explorer 入 


one World One Dream 


同一 个 世界 ， 同 一 个 梦想 


人 本 地 Intranet 





图 5-1 XMLHTTP 使 用 举例 


从 该 例 可 以 看 出 ，XMLHTTP 对 象 的 使 用 是 非常 简单 的 ， 创 建 对 象 、 设 置 参 数 、 友 送 数据 ， 然 后 处 理 返回 的 数据 即 可 。 


5.2 ServerXMLHTTP 的 使 用 


在 服务 端 应 该 使 用 ServerXMLHTTP 对 象 ， 而 不 是 XMLHTTP 对 象 。 此 时 ， 请 求 的 URL 必 须 是 完整 的 ， 应 该 以 http:// 或 https:// 开 头 ， 不 能 使 用 相对 URL。 


第 6 草 ”正则 表达 式 的 使 用 


6.1 基本 概念 


相信 大 家 都 做 过 在 文本 中 查找 或 蔡 换 字符 串 这 种 操作 。 比 如 将 “String” 都 蔡 换 为 “string”， 在 编辑 器 的 查找 栏 中 输入 “String”， 蔡 换 栏 中 输入 “string”， 蔡 换 所 有 即 可 ， 很 简单 


但 是 ， 如 果 想 把 “[img]a.gifUimg]” 蔡 换 为 “<img src='a.gif'>” (图 片 的 文件 名 是 不 固定 的 ) ， 或 把 所 有 大 写 的 HTML 标 签 蔡 换 为 小 写 的， 这 样 的 要 求 就 有 些 困难 了 ， 这 正 是 正则 表达 式 大 显 身手 的 
时 候 。 


正则 表达 式 (Regular Expression) 是 查找 蔡 换 的 强 有 力 工具 。 说 它 是 工具 又 有 些 不 太 合适 ， 因 为 一 个 正则 表达 式 本 身 真 的 只 是 一 个 字符 串 而 已 ， 当 然 它 有 自己 特殊 的 组 成 结构 和 语法 。 


很 多 编程 语言 (如 Perl、PHP、.NET、Java、JavaScript 和 VBScript 等 ) 和 编辑 工具 (如 Emeditor) 都 是 支持 正则 表达 式 的 ， 但 是 ， 它 们 使 用 的 正则 表达 式 引 警 是 不 同 的 。 正 则 表达 式 引 警 (以 下 简 
称 “ 正 则 引 警 ”) 就 是 根据 正则 表达 式 对 文本 进行 处 理 的 程序 。 各 种 语言 中 的 正则 语法 其 实 只 是 提供 了 一 个 调用 接口 而 已 ， 我 们 通过 语句 设置 表达 式 ， 设 置 一 些 必要 的 参数 ， 并 执行 查找 替换 ， 此 时 正则 引 
擎 被 自动 调用 ， 它 努力 工作 并 返回 结果 ， 正 则 引擎 才 是 最 终结 果 的 决定 者 。 各 种 语言 的 正则 引擎 基本 上 都 是 各 自 创 建 的 ， 它 们 支持 的 功能 和 处 理 结果 略 有 不 同 。 所 以 ， 切 换 编 程 语 言 时 ， 原 有 的 正则 表达 式 
可 能 需要 略 加 修改 。 


由 于 ASP 的 脚本 语言 通常 是 VBScript， 所 以 下 文 主要 讲解 VBScript 中 的 正则 表达 式 。VBScript 从 5.0 版 本 开始 就 已 经 支持 正则 了 ， 而 这 个 版 本 是 随 着 IE5 而 来 的 ， 所 以 服务 器 是 否 支 持 正则 这 个 问题 是 不 


用 担心 的 。 


第 6 草 ”正则 表达 陈 的 使 用 


6.1 基本 概念 


相信 大 家 都 做 过 在 文本 中 查找 或 蔡 换 字符 串 这 种 操作 。 比 如 将 “String” 都 蔡 换 为 “string”， 在 编辑 器 的 查找 栏 中 输入 “String”， 蔡 换 栏 中 输入 “string”， 蔡 换 所 有 即 可 ， 很 简单 


但 是 ， 如 果 想 把 “[img]a.gifUimg]” 蔡 换 为 “<img src='a.gif'>” (图 片 的 文件 名 是 不 固定 的 ) ， 或 把 所 有 大 写 的 HTML 标 签 蔡 换 为 小 写 的 ， 这 样 的 要 求 就 有 些 困难 了 ， 这 正 是 正则 表达 式 大 显 身手 的 
时 候 。 


正则 表达 式 (Regular Expression) 是 进行 复杂 查找 蔡 换 的 强 有 力 工具 。 说 它 是 工具 又 有 些 不 太 合 适 ， 因 为 一 个 正则 表达 式 本 身 真 的 只 是 一 个 字符 串 而 已 ， 当 然 它 有 自己 特殊 的 组 成 结构 和 语法 。 


很 多 编程 语言 (如 Perl、PHP、.NET、Java、JavaScript 和 VBScript 等 ) 和 编辑 工具 (如 Emeditor) 都 是 支持 正则 表达 式 的 ， 但 是 ， 它 们 使 用 的 正则 表达 式 引 警 是 不 同 的 。 正 则 表达 式 引擎 (以 下 简 
称 “ 正 则 引擎”) 就 是 根据 正则 表达 式 对 文本 进行 处 理 的 程序 。 各 种 语言 中 的 正则 语法 其 实 只 是 提供 了 一 个 调用 接口 而 已 ， 我 们 通过 语句 设置 表达 式 ， 设 置 一 些 必要 的 参数 ， 并 执行 查找 替换 ， 此 时 正则 引 
擎 被 自动 调用 ， 它 努力 工作 并 返回 结果 ， 正 则 引擎 才 是 最 终结 果 的 决定 者 。 各 种 语言 的 正则 引擎 基本 上 都 是 各 自 创 建 的 ， 它 们 支持 的 功能 和 处 理 结果 略 有 不 同 。 所 以 ， 切 换 编 程 语 言 时 ， 原 有 的 正则 表达 式 
可 能 需要 略 加 修改 。 


由 于 ASP 的 脚本 语言 通常 是 VBScript， 所 以 下 文 主要 讲解 VBScript 中 的 正则 表达 式 。VBScript 从 5.0 版 本 开始 就 已 经 支持 正则 了 ， 而 这 个 版 本 是 随 着 IE5 而 来 的 ， 所 以 服务 器 是 否 支 持 正 则 这 个 问题 是 不 
用 担心 的 。 


6.2 正则 对 象 的 使 用 


6.2.1 基本 语 ; 


创建 正则 对 象 ， 直 接 使 用 New 关 键 字 即 可 ， 举 例如 下 : 








Set regEx = New RegExp 





正则 对 象 的 属性 如 表 6-4 所 示 。 


表 6-4 正则 对 象 的 属性 


属 性 含 义 


Pattern String 使 用 的 正则 表达 式 
[enoreCase 是 否 忽略 大 小 写 ， 默 认 是 False 


Global 是 否 匹 配 所 有 结果 ， 默 认 是 False， 匹 配 到 一 个 结果 即 返 回 


Rie i 是 否 开启 多 行 模式 ， 默 认 是 False 


创建 正则 对 象 后 ， 使 用 Pattern 属 性 设置 要 使 用 的 正则 表达 式 ， 其 他 3 个 属性 可 根据 需要 进行 设置 。 
正则 对 象 的 方法 如 表 6-5 所 示 。 


表 6-5 正则 对 象 的 方法 


本 去 on 


Testtst 测试 文本 是 否 能 够 匹配 表达 式 ， 能 够 匹配 返回 True， 和 否则 返回 False 
| 将 文本 中 正则 表达 式 所 匹配 的 部 分 替换 为 指定 的 内 容 ， 返 回 经 过 替换 的 
Replacel(str,replaceStr) |String 整个 文本 
臣 个 义 不 


返回 匹配 结果 的 集合 ， 可 以 得 到 每 一 个 匹配 结果 及 分 组 匹配 内 容 ， 便 于 


Executel( str) MatchCollection | | 
进一步 的 处 理 





6.3 ”实例 演示 


6.3.1 UBB 中 Code 标 签 的 替换 


在 UBB 中 ，“[code]” 和 “[/code]” 之 间 的 内 容 被 认为 是 代码 ， 不 应 该 进行 任何 替换 ， 应 该 原样 输出 。 由 于 内 容 中 可 能 有 “[fontJ”“[size]” 和 “[color]” 等 其 他 UBB 标 签 ， 所 以 难点 就 在 于 ， 如 何不 


替换 Code 标 签 之 内 的 UB B 标 签 。 


保持 Code 标 签 中 的 UBB 标 签 不 变 ， 有 两 种 办 法 。 一 种 是 先 替 换 UBB 标 签 ， 然 后 将 Code 标 签 内 被 错误 替换 的 UBB 标 签 再 替换 回来 。 这 种 处 理 方法 比较 烦琐 ， 蔡 换 回来 这 个 步骤 也 比较 难以 操作 。 另 一 种 


是 先 查 找 Code 标 签 ， 然 后 只 对 Code 标 签 之 外 的 内 容 执 行 UBB 标 签 蔡 换 ， 这 种 办 法 相对 清晰 简洁 一 些 ， 本 例 将 采用 此 办 法 。 


为 了 简化 范例 ， 对 于 嵌 套 Code 标 签 的 情况 暂 不 考虑 ， 多 个 Code 标 签 只 能 并 列 排 布 ， 内 容 的 结构 如 图 6-13 所 示 。 


...... |code] .… [/code| ......... [code] .……… [/code| ......... [code| ... [/code| ...... 





不 处 理 不 处 理 不 处 理 


图 6-13 Code 标签 的 结构 


那么 ， 处 理 过 程 是 怎样 的 呢 ? 首先 ， 查 找 第 一 对 Code 标 签 ， 得 到 起 始 和 结束 位 置 ， 对 Code 标 签 之 前 的 内 容 进 行 UBB 蔡 换 ， 然 后 在 Code 标 签 之 后 查找 下 一 对 Code 标 签 ， 蔡 换 两 对 Code 标 签 之 间 的 内 
如 此 反复 ， 直 到 后 面 没有 Code 标 签 为 止 。 


由 于 每 次 只 需 查 找 一 对 Code 标 签 ， 所 以 Global 属性 可 以 设置 为 False， 这 样 正则 引擎 在 得 到 一 个 匹配 结果 后 就 会 结束 查找 。 查 找 表 达 式 可 以 简单 地 写 为 [code].*? \[/code]”， 范 例 代码 如 下 所 示 。 


CodeTagReplace.asp 


<%Qcodepage=936%> 

< 区 

Response.Charset="GBK" 

! 蔡 换 font 和 size 的 函数 

Function ReplaceOtherUBB (str) 
Dim regEx 
Set regkx = New RegExp 



























































regEx.Global=true 

regEx.Pattern = "\[font=(.*?)] (.*?) \[/font]" 

str = regEx.Replace (str,"<font face=""$1"">$2</font>") 
regEx.Pattern = "\[size=(.*?)] (.*?)\[/size]" 

tr = regEx.Replace (str,"<font size=""$1"">$2</font>") 






































ReplaceOtherUBB = str 
End Function 
' 创 建 正则 对 象 
Set regkx = New RegExp 
regEx.Global=False 
regEx.Pattern = "\[codel] (.*?) \[/code]" 
' 要 处 理 的 文本 
str = "这 道 [size=6] 烤 排骨 [/size]， 是 用 [size=5] [font= 黑 体 ] 浓 缩 橙汁 [/font] [/size] 做 的 ，[coqe] 还 添加 了 [size=5] 陈 皮 [/size] 和 [font= 隶 书 ] 柠 檬 [/font] ， 吃 起 来 口感 更 加 浓郁 ，[/code] [size=5] 酸 甜 [/s 
! 保 存 结果 的 字符 事 
result = "" 
' 进 行 循环 蔡 换 
Set Matches = regEx.Execute (str) 
Do While Matches.count > 0 
beforeStr = midl(str,1,Matches (0) .FirstIindex) 
codestr = Matches (0) .SubMatches (0) 
afterStr = midl(str,Matches (0) .FirstIndex + Matches (0) .Length + 1) 
response.write "之 前 的 文本 : " & beforeStr & "<br>" 
response.write "匹配 的 文本 : " & codeStr & "<br>" 
response.write "之 后 的 文本 : " & afterStr & "<hr>" 
' 蔡 换 之 前 的 文本 
result = result 
"替换 Code 标 签 的 内 容 
result = result & “<div style='border:1lpx solid;margin:10px;padding:5px'>" & codeStr & "</div>" 
' 之 后 的 文本 作为 待 处 理 文本 
str = afterStr 
' 继 续 匹 配 
Set Matches = regEx.Execute (str) 





































































































& ReplaceOtherUBB (beforeStr) 















































Dace 
最 后 一 段 不 能 匹配 的 文本 也 要 替换 

result = result & ReplaceOtherUBB (str) 

$> 

<%=result%> 

















运行 结果 如 图 6-14 所 示 。 


EB http://localhost/test/reegexp/codeTaegReplace.asp - Microsoft Internet Explorer 。 p> 4 
文件 人 E) 编辑 候 ) 查看 (Y) 收藏 从 ) 工具 (中 帮助 器) 和 


Fa- 日 固 轿 各 有 P 鬼 砍 懂 大 加 了" 各国- 国 队 为 下 
地 址 D) 钻 http:/hocahost/testregexpjcodeTagReplaceasp ”Ia| 园 转 到 snagt 国电 


| 
| 之 前 的 文本 : 这 道 [size=6] 烤 排骨 [/size]， 是 用 [size=5] [font= 和 黑体] 浓缩 概 计 
[font][ysize] 做 的 ， 

还 添加 了 [size=5] 陈皮 [/size] 和 [font= 隶 书 ] 柠 榜 [/font]， 吃 起 来 口 
感 喝 加 凌 郁 ， 

之 后 的 文本 : [size=5] 酸 研 [/size] 的 水 果 味 道 [code] 既 能 去 腥 又 增添 [size=6] 香 味 
[/size]，[/code] 吃 起 来 味道 [font= 隶 书 ] 特 别 好 [/font] 电 1: 


之 前 的 文本 : [size=5] 酸 醋 [/size] 的 水 果 味 道 
匹配 的 文本 : 既 能 去 腥 叉 增添 [size=6] 香 味 [/size]， 
之 后 的 文本 : 吃 起 来 味道 [font= 隶 书 ] 特 别 好 [/font] 电 1 


-yy. 上 ,El, * A “ 
这 道 禾 排 用", 是 用 浓缩 榴 汁 做 的 ， 
还 添加 了 [size=5] 陈 皮 [/size] 和 [font= 隶 书 ] 森 榜 [/font]， 吃 起 来 口感 更 加 浓 


+ 


-of 


酚 姑 的 水 果 味 道 


区 能 去 腥 又 增添 [size=6] 香味 [/size]， 


吃 起 来 昧 道 特别 好 电 1 
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图 6-14 Code 标签 的 替换 结果 


在 程序 中 ， 每 次 匹配 成 功 后， 都 将 Code 标 签 之 后 的 文本 重新 作为 待 处 理 文 本 ， 这 样 待 处 理 文本 就 越 来 越 少 ， 直 至 找 不 到 Code 标 签 退出 循环 。 在 循环 匹配 时 ， 一 定 要 注意 变化 待 处 理 文本 ， 因 为 执行 
Execute 方 法 时 ， 正 则 引 警 是 从 文本 起 始 位 置 开 始 查找 ， 如 果 文 本 不 变化 ， 那 么 永远 可 以 匹配 到 结果 ， 就 无 法 退出 循环 了 。 


第 7/ 草 文件 上 传 与 下 载 


7.1 上 传 文件 简介 


7.1.1 ”对 表单 的 要 求 
通过 表单 上 传 文 件 ， 表 单 的 提交 方式 必须 为 Post， 即 使 用 method="post"， 同 时 必须 指定 编码 方式 为 multipart/form-data， 即 使 用 enctype="multipart/form-data"。 如 果 没 有 指定 enctype 或 者 指 
定 为 application/x-url-encoded， 则 提交 表单 时 ， 浏 览 器 不 会 提交 文件 内 容 ， 只 会 提交 文件 路 径 。 


编码 方式 使 用 multipart/form-data 时 ， 所 有 表单 项 目的 name、value 及 文件 内 容 均 以 二 进 制 形式 提交 ， 不 会 进行 URL 编 码 。 与 编码 方式 application/x-url-encoded 相 比 ， 以 二 进 制 形式 提交 可 以 节省 
大 量 时 间 ， 更 适合 于 传输 大 量 的 数据 。 


编码 方式 使 用 multipart/form-data 后 ， 在 服务 器 端 ASP 程 序 中 就 不 要 再 使 用 Request.Form 集 合 了 ， 它 那样 是 取 不 到 数据 的 。Request.Form 集 合 是 针对 表单 使 用 编码 方式 application/x-url-encoded 
的 情况 设计 的 ， 它 无 法 解析 编码 方式 为 multipart/form-data 时 提交 的 数据 。 


以 下 还 有 一 些 细节 需要 注意 : 

1) 文件 框 是 不 能 选择 目录 的 ， 它 只 能 选择 一 个 文件 。 要 上 传 几 个 文件 ， 表 单 中 就 要 有 几 个 文件 框 。 
2) 文件 框 的 值 不 能 通过 Javascript 等 脚本 设 定 ， 必 须 由 用 户 自己 选择 ， 这 是 出 于 安全 的 考虑 。 

3) 没有 客户 端 软 件 的 支持 是 无 法 实现 断 点 续 传 的 ， 因 为 浏览 器 总 是 发 送 文件 的 全 部 数据 。 

4) 文件 框 的 外 观 样 式 很 难 设 定 ， 想 美化 的 话 ， 只 能 间接 实现 。 


5) 大 多 数 浏 览 器 上 传 文件 的 大 小 上 限 是 2GB。 


第 7 草 文件 上 传 与 下 载 
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通过 表单 上 传 文 件 ， 表 单 的 提交 方式 必须 为 Post， 即 使 用 method="post"， 同 时 必须 指定 编码 方式 为 multipart/form-data， 即 使 用 enctype="multipart/form-data"。 如 果 没 有 指定 enctype 或 者 指 
定 为 application/x-url-encoded， 则 提交 表单 时 ， 浏 览 器 不 会 提交 文件 内 容 ， 只 会 提交 文件 路 径 。 


编码 方式 使 用 multipart/form-data 时 ， 所 有 表单 项 目的 name、value 及 文件 内 容 均 以 二 进 制 形式 提交 ， 不 会 进行 URL 编 码 。 与 编码 方式 application/x-url-encoded 相 比 ， 以 二 进 制 形式 提交 可 以 节省 
大 量 时 间 ， 更 适合 于 传输 大 量 的 数据 。 


编码 方式 使 用 multipart/form-data 后 ， 在 服务 器 端 ASP 程 序 中 就 不 要 再 使 用 Request.Form 集 合 了 ， 它 那样 是 取 不 到 数据 的 。Request.Form 集 合 是 针对 表单 使 用 编码 方式 application/x-url-encoded 
的 情况 设计 的 ， 它 无 法 解析 编码 方式 为 multipart/form-data 时 提交 的 数据 。 


以 下 还 有 一 些 细节 需要 注意 : 
1) 文件 框 是 不 能 选择 目录 的 ， 它 只 能 选择 一 个 文件 。 要 上 传 几 个 文件 ， 表 单 中 就 要 有 几 个 文件 框 。 


2) 文件 框 的 值 不 能 通过 JavaScript 等 脚本 设 定 ， 必 须 由 用 户 自己 选择 ， 这 是 出 于 安全 的 考虑 。 


4) 文件 框 的 外 观 样 式 很 难 设 定 ， 想 美化 的 话 ， 只 能 间接 实现 。 


5) 大 多 数 浏览 器 上 传 文件 的 大 小 上 限 是 2GB。 


7.2 无 组 件 上 传 


无 组 件 上 传 ， 就 是 在 服务 器 没有 安装 第 三 方 上 传 组 件 的 情况 下 ， 通 过 AsP 内 置 的 方法 及 常见 组 件 来 实现 文件 上 传 。 


7.3 AspUpload 组 件 


AspUpload 组 件 是 Persits 公 司 的 一 款 产 品 ， 它 功能 齐全 、 性 能 卓越 、 使 用 简便 ， 大 多 数 主 机 空间 都 支持 它 。AspUpload 组 件 是 收费 的 商业 产品 ， 官 方 网 址 为 http://www.aspupload.com， 可 以 访问 该 
网 站 下 载 最 新 的 试用 版 本 。 


AspUpload 组 件 的 部 分 功能 特色 如 下 : 

“ 可 以 一 次 上 传 多 个 文件 。 

. 可 以 存 取 表 单 中 的 文本 项 目 。 

“ 支持 上 传 进 度 条 。 

. 支持 Unicode。 

“ 可 以 变更 文件 属性 。 

. 可 以 将 文件 作为 BLOB 保 存 到 数据 库 中 。 

. 支持 MS Access 的 OLE Object 的 Head 部 分 。 
. 支持 从 数据 库 中 导出 文件 。 

. 可 以 自动 生成 唯一 的 文件 名 ， 避 免 与 存在 的 文件 冲突 。 
.可 以 限制 上 传 文件 的 大 小 。 

. 可 以 保持 文件 的 “上 次 修改 ”时 间 玲 。 

. 支持 加 密 。 

. 可 以 列 出 目录 经 过 排序 的 列表 。 

. 支持 文件 复制 、 移 动 和 删除 。 

. 支持 目录 的 创建 和 删除 。 


: 处 理 BLOB 数 据 时 ， 可 以 提供 完整 的 ADO 支持 。 


. 支持 MacBinaty。 
“ 支持 目录 上 传 (客户 端 需 要 使 用 XUpload 或 Jupload) 。 


“ 可 以 提取 图 片 的 尺寸 和 类 型 。 


7.4 FileUp 组 件 


FileUp 组 件 是 SoftArtisans 公 司 的 一 款 产 品 ， 它 具有 齐全 的 功能 和 卓越 的 性 能 ， 与 Asp-Upload 组 件 齐名 。FileUp 组 件 也 是 收费 的 商业 产品 ， 官 方 网 站 为 http://fileup.softartisans.com。 
FileUp 组 件 的 部 分 功能 特色 如 下 : 

. 支持 数据 库 的 上 传 和 下 载 。 

支持 上 传 的 交易 控制 。 

' 支持 上 传 进 度 条 。 

包含 性 能 监视 计数 器 ， 可 以 监视 上 传 和 下 载 的 性 能 。 

. 支持 MD5， 可 用 来 验证 上 传 数据 的 完整 性 。 

“ 支持 目录 的 递归 上 传 〈 需 要 客户 端 使 用 JFile 或 Xfile) 。 

支持 Unicode 的 文件 名 或 Form Value。 

“ 可 以 上 传 到 内 存 ， 更 加 安全 。 

“ 支持 下 载 的 断 点 续 传 (需要 客户 端 工具 支持 ) 。 

. 支持 MacBinaty。 

“ 可 以 修改 文件 的 权限 。 


可 以 注 册 DLL 文件 [e] 


7.5” 防 沁 上 传 漏洞 


网 站 具有 上 传 功能 ， 就 相当 于 对 外 保留 了 一 个 入 口 。 如 果 对 上 传 的 数据 不 进行 严格 的 验证 ， 用 户 就 可 能 上 传 ASP 木 马 、 病 毒 、 黑 客 工 具 等 恶意 文件 ， 通 过 系统 漏洞 进一步 控制 服务 器 ， 轻 则 泄露 程序 源 
代码 ， 重 则 丢失 重要 数据 、 商 业 机 密 等 信息 。 近 些 年 来 ,一些 知名 网 站 、 企 业 和 部 门 的 网 站 都 被 发 现 过 上 传 漏洞 ， 某 论坛 的 上 传 漏洞 更 是 导致 无 数 小 网 站 被 黑 ， 而 问题 的 根源 可 能 仅 仪 是 程序 员 在 设计 时 考 
虑 不 周 。 


7.6 下 载 文件 


下 载 文件 的 请 求 通常 都 是 由 11S 直 接 处 理 的 ， 我 们 无 需 插手 ， 但 以 下 一 些 场合 可 能 需要 通过 程序 来 控制 下 载 ， 如 : 
. 希望 点 击 链接 时 ， 可 以 下 载 文本 文件 或 图 片 文件 ， 而 不 是 在 浏览 器 中 直接 打开 。 

需要 验证 用 户 是 否 有 下 载 的 权限 。 

. 出 于 安全 的 考虑 ， 需 要 将 文件 放 在 Web 目 录 之 外 。 

. 服务 器 限制 了 可 以 直接 下 载 的 文件 类 型 。 


通过 ASP 程 序 下 载 文 件 时 ， 需 要 将 下 载 的 链接 地 址 指向 对 应 的 ASP 文 件 ，ASP 文 件 需要 输出 必要 的 Head 信 息 和 文件 数据 ， 必 要 时 ， 可 以 在 URL 中 传递 1D 或 文件 路 径 之 类 的 信息 。 使 用 此 种 方式 下 载 文件 
时 ， 所 有 的 数据 都 是 通过 ASP 引 擎 输出 的 ， 下 载 效 率 会 比 I1S 直 接 处 理 有 些 下 降 ， 所 以 ， 此 种 方式 只 适用 于 下 载 较 小 的 文件 。 


第 8 草 图片 处 理 


8.1 AspJpeg 组 件 


8.1.1 组 件 简介 


AspJpeg 组 件 是 最 常用 的 图 片 处 理 组件 ， 它 功能 强大 ， 使 用 广泛 ， 支 持 JPEG、GIF、BMP、TIFF 和 PNG 格 式 图 片 ， 可 以 进行 图 片 的 缩放 、 裁 剪 、 铅 化 等 常用 操作 ， 支 持 自由 画图 ， 支 持 EXIF 信 息 读 取 


和 
jo 


AspJpeg 组 件 的 官方 网 站 是 http://www.aspjpeg.com， 可 以 从 这 里 下 载 最 新 版 的 试用 版 组 件 。 
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8.2” 目 由 画图 


自由 画图 需要 使 用 Canvas 对 象 ， 通 过 AspJpeg 对 象 的 Canvas 属 性 可 以 得 到 它 ， 然 后 调用 它 的 各 种 画图 方法 即 可 。 


8.3 ”图片 处 理 


8.3.1 图 片 缩放 


缩放 图 片 很 简单 ， 直 接 设 置 新 的 宽度 或 高 度 即 可 。 建 议 将 PreserveAspectRatio 属 性 设置 为 True， 这 样 可 以 保持 宽 高 的 比例 。 


范例 代码 如 下 所 示 。 


resizelmage.asp 





<%Qcodepage=936%> 

< 多 

"打开 图 片 

Set jpeg = Server.CreateObject ("Persits.Jpeg") 
jpeg.Open Server.MapPath ("thinker.jpg") 

' 图 片 信息 























response.write "图 片 格式 : " &jpeg.OriginalFormat & "<br>" 
response.write "原始 宽度 : " &jpeg.OriginalWigdth & "<br>" 
response.write "原始 高 度 : " &jpeg.OriginalHeight & "<br>" 
' 设 置 新 宽度 


jpeg.width = 150 

jpeg.Save Server.MapPath ("thinkerResizel .jpg") 
重新 打开 ， 设 置 新 宽度 
jpeg.Open Server.MapPath ("thinker.jpg") 
jpeg.PreserveAspectRatio = true ' 保 持 比 例 

















jpeg.width = 150 
jpeg.Save Server.MapPath ("thinkerResize2.jpg") 
设置 高 度 

jpeg.height = 150 



































jpeg.Save Server.MapPath ("thinkerResize3.jpg") 
"释放 变量 

Set jpeg = nothing 

$> 

<img src="thinker.jpg"/> 

<img src="thinkerResizel .jpg"/> 

<img src="thinkerResize2.jpg"/> 

<img src="thinkerResize3.jpg"/> 























运行 结果 如 图 8-13 所 示 。 


图 片 格式 : JPG 
原始 宽度 ，200 
原始 高 度 ，300 


io TIT She an, 2010,11 
A 





图 8-13 ”图片 缩放 


8.4 GIF 动画 


GIF 格式 的 优点 是 支持 背景 透明 和 动画 显示 ， 缺 点 是 支持 的 颜色 数 较 少 。AspJpeg 组 件 从 2.0 版 本 开始 ， 单 独 提供 了 Gif 对 象 进行 GIF 动画 的 处 理 。 


8.5 ”PNG 格式 


8.5.1 输出 为 PNG 图 片 


从 2.1 版 本 开始 ，AspJpeg 组 件 支持 输出 PNG 格 式 的 文件 ， 只 需要 在 保存 文件 前 将 PNGOutput 属 性 设置 为 True 即 可 。 
范例 代码 如 下 所 示 。 
resizePng.asp 


<%$Qcodepage=936%> 

<g 

" 打开 Png 

Set jpeg = Server.CreateObject ("Persits.Jpeg") 


]peg.Open Server.MapPath ("mouse.png") 

' 保 持 宽 高 比 

jpeg.PreserveAspectRatio = True 

' 设 置 新 宽度 

jpeg.width = 150 

' 输 出 为 PNG 

jpeg.PNGOutput = True 

"保存 并 释放 

jpeg.Save Server.MapPath ("mouseSmall .png") 





Set jpeg = nothing 
<img src="mouse.png" border="0"></img> 
<img src="mouseSmall.png" border="0"></img> 


运行 结果 如 图 8-31 所 示 。 





图 8-31 输出 为 PNG 格 式 


第 9 章 ”邮件 发 这 


9.1 ” Email 简介 


9.1.1 Email 收发 流程 


从 用 户 的 角度 来 看 ，Email 的 收发 过 程 非常 简单 。 发 件 人 填 好 收 件 人 地 址 及 内 容 ， 单 击 “ 发 送 ”按钮 ， 然 后 收 件 人 单 击 “ 接 收 ” 按 钮 就 收 到 了 邮件 。 邮 件 似乎 是 从 发 件 人 直达 收 件 人 的 ， 但 实际 的 流程 要 
稍微 复杂 一 点 ， 简 化 的 流程 如 图 9-1 所 示 。 


六 区 六 区 
客户 响 软 件 各 已 闹 软 件 


SMIP POP3/IMAP 
SMTP 


发 件 人 邮件 服务 各 > 收 件 人 邮件 服务 帮 


图 9-1 ”邮件 发 送 流程 








图 形 比 较 简 略 ， 实 际 上 ， 一 封 Email 可 能 途经 局 域 网 、 网 关 、 防 火 墙 、 路 由 器 和 中 继 服 务 器 等 各 种 设备 。 收 件 人 的 邮件 服务 器 也 可 能 将 邮件 转 存 到 专门 的 服务 器 ， 供 用 户 取信 使 用 。 


发 信人 的 客户 端 软件 与 发 件 人 邮件 服务 器 之 间 ， 通 过 SMTP 协 议 进行 交流 。 邮 件 服务 器 之 间 也 是 使 用 SMTP 协 议 的 。 收 件 人 的 客户 端 软 件 与 收 件 人 邮件 服务 器 之 间 是 通过 POP3 或 I1MAP 等 协议 交流 的 。 
SMTP 协 议 是 发 信 的 协议 ， 而 POP3 或 IMAP 是 收 信 的 协议 。 


第 9 章 ”邮件 友 送 


9.1 Email 简介 


9.1.1 ”Email 收 发 流程 


从 用 户 的 角度 来 看 ，Email 的 收发 过 程 非常 简单 。 发 件 人 填 好 收 件 人 地 址 及 内 容 ， 单 击 “ 发 送 ” 按 钮 ， 然 后 收 件 人 单 击 “ 接 收 ” 按 钮 就 收 到 了 邮件 。 邮 件 似乎 是 从 发 件 人 直达 收 件 人 的 ， 但 实际 的 流程 要 
稍微 复杂 一 点 ， 简 化 的 流程 如 图 9-1 所 示 。 


六 区 是 区 


客户 响 软 件 各 尸 闹 软件 





SMIP POP3/IMAP 





发 件 人 邮件 服务 从 > 收 件 人 邮件 服务 天 


图 9-1 邮件 发 送 流程 
图 形 比较 简略 ， 实 际 上 ， 一 封 Email 可 能 途经 局 域 网 、 网 关 、 防 火 墙 、 路 由 器 和 中 继 服务 器 等 各 种 设备 。 收 件 人 的 邮件 服务 器 也 可 能 将 邮件 转 存 到 专门 的 服务 器 ， 供 用 户 取信 使用。 


发 信人 的 客户 端 软件 与 发 件 人 邮件 服务 器 之 间 ， 通 过 SMTP 协 议 进行 交流 。 邮 件 服务 器 之 间 也 是 使 用 5MTP 协 议 的 。 收 件 人 的 客户 端 软件 与 收 件 人 邮件 服务 器 之 间 是 通过 POP3 或 IMAP 等 协议 交流 的 。 
SMTP 协 议 是 发 信 的 协议 ， 而 POP3 或 IMAP 是 收 信 的 协议 。 
9.2 CDOSYS 组 件 


CDOSYS 组 件 是 Windows 系 统 内 置 的 发 信 组 件 ， 无 需 安装 ， 基 本 所 有 的 主机 空间 都 支持 它 。 


CDOSYS 组 件 最 主要 的 对 象 是 Message 对 象 ， 使 用 以 下 语句 即 可 创建 。 





Set message = Server.CreateObject ("CDO.Message") 





9.3” JMail 组 件 


JMail 是 Dimac 公 司 开 发 的 邮件 收发 组 件 ， 非 常 成 熟 ， 也 很 强大 。JMail 组 件 分 为 免费 版 、 标 准 版 和 专业 版 ， 由 于 它 的 免费 版 本 支持 大 部 分 的 发 信 功 能 ， 所 以 该 组 件 使 用 得 也 非常 广泛 ， 大 部 分 主机 空间 
都 支持 它 。 


JMail 组 件 最 主要 的 对 象 是 Message 对 象 ， 使 用 以 下 语句 即 可 创建 。 





Set message =Server.CreateObject ("JMail.Message") 





9.4 AspEmail 组 件 


AspEmail 组 件 是 Persits 公 司 的 一 款 产 品 ， 应 用 比较 广泛 。 它 的 免费 版 本 支持 常用 的 一 些 基础 功能 ， 而 某 些 功能 需要 付费 注册 后 才能 使 用 ， 如 消息 队列 、 内 启 图 片 、Quoted-Printable 格 式 和 
multipart/alternative 的 支持 等 。 


AspEmail 组 件 最 主要 的 对 象 是 MailSender 对 象 ， 使 用 以 下 语句 即 可 创建 : 





Set Mail = Server.CreateObject ("Persits.MailSender") 











